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1.0 ABSTRACT 
PROGRAM PERFORMS PART 1 ub ht THE RKO6/RKOE-RKO7 SUBSYSTEM 
ONAL SHAK 


THIS VER 
TESTS WHICH gOoHN OF THE ENTIRE SUesy 


I 
INCL UDING THE E UNIBUS INTERFACE Cnee Ree acar a) ys 


post yion UR nING, "eRE Race BBESEING ch8 10 DRIVE Ri TONAL TIMING. 


WITHIN THE VARIOUS SUBSYSTEM TESTS, EMPHASIS IS GIVEN TO USEFUL SCOPE 
LOOPS AND Ly SPECIFICATION TEST PARAMETER VALUES. AT THE 
EGINNNG OF eT eNG THE FOLLOWING OPTIONS MAY BE SPECIFIED BY THE 


PKG 
Rxoe 
ORE oer _T 
eoat T(S) TO 
T "iy * parensnen 
DISK 


pdt ey peg Oe sso pe TRANSFERS 
STALL a 5 T gy bate OPERATIONS 


TN ODOT TION STANDARD SWITCH REGISTER OPTIONS ARE PROVIDED, FOR A 
PROGRAM LOOPING, RUNNING, AND REPORTING MODES. 


ERRORS WILL BE REPORTED AS THEY OCC THE REPORT WILL INCLUDE A TEST 
NUMBER AND DESCRIPTION, CURRENT AND PREVIOUS OPERATIONS, GOOD AND BAD 
TEST DATA, AND APPLICABLE DEVICE REGISTER CONTENTS. 


2.0 HARDWARE REQUIREMENTS 


THE FOLLOWING HARDWARE IS REQUIRED TO RUN PART 1 OF THE SUBSYSTEM 
VERIFICATION TESTS: 


POP-11704 (OS, 10 MFG. ONLY),20,34,35,40,45,50,70 OR PDQ 


bSNSOLE TE ETYPE 

KW11- oR Kl -P CLOCK 

RKO6/07_UNI CONTROLLER (RK611) 

1 TO 8 RKO6/07 DRIVES 

1 TO 8 RKO6/07 DISK CARTRIDGES (FORMATTED IN 20 OR 22 SECTOR FORMAT) 


NOTE 


IF NEITHER KWll-L_ OR P_ CLOCK IS 
PROVIDED, THE TIMING TESTS IN SECTION 


SEQ 0283 
SE@ 0004 
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BE BYPASSED, AND A MESSAGE WILL 
HE OPERATOR. 


3.0 PRELIMINARY PROGRAM REQUIREMENTS 


BEFORE RUNNING Ma SUBSYSTEM VERIFICATION. PROGRAM THE RK611 
CONTROLLER ge Ic Feet THRU DZR6E AND CZR6K) AND RKOG 

DRIVE DIAGNOSTIC (CZR6H THRU CZR6J) SHOULD FIRST BE RUN, 70 

RESOLVE BASIC, SOLID HARDWARE FAULTS. 


4.0 GENERAL PROGRAM CONSIDERATIONS 


4.1 SYSMAC 
io USES PORTIONS OF THE SYSMAC DIAGNOSTIC SYSTEM MACRO 


4.2 XXDP 


THIS PROGRAM MAY BE LOADED UNDER XXDP. SUBSYSTEM TESTS 1-21 MAY BE 
RUN IN _—— OR DUMP MODE, BUT DUAL-ACCESS TEST 22 MAY ONLY BE RUN IN 


4.2.1 CHAIN MODE 


THIS PROGRAM 1s ola TO RUN IN THE DEFAULT MODE WHEN CHAINED 
INDER X NPUT DIALOGUE IS BYPASSED, AND RKO& UNIBUS ADDRESS 
TO STANDARD VALUES. ALL DRIVES 

ITH THE EXCEPTION OF DRIVE O, IF THE 


4.2.2 DUMP MODE 


HE PROGRAM CAN BE RUN IN oun MODE, WITH OR WITHOUT DEFAULT 
PARAMETERS. DRI . O MAY BE TESTED, ‘BUT IF IT CONTAINS re XXDP 
MEDIUM, THE OPERATOR a REPLACE THE 'XxDP_ PACK WITH A FORMATTED 
SCRATCH PACK oh +e TESTING. A MESSAGE WILL INFORM THE OPERATOR 
WHEN THIS IS NECESSAR 


SEQ 0284 
- SEQ@ 000S 


GOl 
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261 
262 
263 
264 4.3 ACT/APT 
66 THE PROGRAM IS COMPATIBLE WITH ACT/APT CONVENTIONS. SUBSYSTEM TESTS 
267 1-21 MAY BE RUN IN GUTOMATIC OR DUMP MODE. 
£3 
eri 4.3.1 AUTOMATIC 
73 THE PROGRAM PROV FOR AUTOMATIC APT/ACT OPERATION. IN THIS MODE 
74 BH AME TERS REVERT fo SE FALL VALUES, AND ALL BRIveS wt oH Abe PRESENT 
275 AND READY ARE TESTE 
276 
277 
278 
873 4.3.2 DUMP MODE 
281 IN DUMP MODE, PARAMETERS MAY BE INPUT, OR DEFAULTED, AND SUBSYSTEM 
e8e TESTS 1-21 OR DUAL-ACCESS DATA TEST 26 MAY BE RUN. 
284 
386 4.3.3 APT ETABLE DEFINITIONS 
585 THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT ENVIRONMENTAL 
289 TABLE (ETABLE) ENTRIES, VIA THE APT UTILITY PROGRAMS : 


230 
231 1. =e ENV RONMENT 
S35 =} Fe MS Barone PT Ope 


294 

295 2. ENVIRONMENT MODE BYTE 

236 BIT 7 = SIZING 

$36 : PRoGRAn’ GOES Seats 

228 BIT 6 = lage IF SCRIPT MODE 

300 BITS =1 DON ORE a6 ENSOLET OUTPUT 

301 = 0 ALLOW CONSOLE OUTPUT 

308 BITS 4-0 NOT USED 

304 4 (SOFT SWITCH REGISTER) 

305 if EAS IRONME £6 bent HO Cboe BIT 7 (SIZING BIT) IS SET T THE SOFTWARE 

306 SHIT H ReGl cn bi aE D, INSTEAD OF THe HARDWARE CONSOLE 

307 SWITCH RE S$ WHICH ONE IS USED L BIT 
08 DEFINED N ectl ON 6.2 ITCH REGISTER OPTIONS) MAY BE USED WHEN 

IN ABT S RIPT MODE, ORE MODE. BIT 14 (LOOP ON TEST) MUST ALWAYS BE 


4. SWITCH 2 (USER SWITCH REGISTER) 
NOT USED 


WWWWWWWWW 
TT OTT TT | 
CTwmcWM-OwW 


5. MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES 
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NOT USED 


6. INTERRUPT VECTOR 1 
USED WHEN ENVIRONMENT MODE BIT 7 


7. BUS PRIORITY 1 
USED WHEN ENVIRONMENT MODE BIT 7 


8. INTERRUPT VECTOR 2 
NOT USED 


DEFAULT = 210 


" 
— 
. 


u 
w 


DEFAULT 


u 
— 
° 


3. BUS PRIORITY 2 
NOT USED 


10. BASE ADDRESS 
USED WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT 


177440 


11. DEVICE MAP 

' USED WHEN ENVIRONMENT MODE BIT 7 = 1. EACH BIT SET TO 1 IN BITS 
O-7 WILL SELECT THE CORRESPONDING DRIVE TO BE TESTED. 
BITS 8-15 NOT USED. 


12. REMAINING ETABLE ENTRIES ARE NOT USED. 


4.4 DUAL-ACCESS 
THIS PROGRAM IS DESIGNED TO UTILIZE DOUAL-AC IN TEST 22 wd 


iii Geena Pt Hae oneBStoRr GAO” Ghd ie. ie 


pete t TO RF THE OTHER TE ORT S th ENCPERATORS IN 

ADVISED #4 Panes iN TER DBRT OFFLINE BND RE-RUN THE ees. 

4.5 MEMORY MANAGEMENT 

THIS PROGRAM T MEMORY Y MANAGEMENT QPTIONS KTLIC, D AND POP11/70 
aS FRpeR alee N’THESE TESTS NPA 


TRANSFERS BETWEEN T RKOE A CIF D ICAL MEMOR OVE THE 
PROGRAM, _ARE PERE ORNED 1p 2OUR ae me Soval it reeriae (NOTE PRONG . =I 
AND 22’ ALSO SUPPOR UNI 

INSTALLED). IN ALL BT eke Tests, MEMORY TAGNAGEMENT Hs DISABLED 


4.6 MEMORY PARITY CHECK 


IF THE MEMORY PARITY CHECK OPTION IS AVAILABLE ON THE SYSTEM, ALL 
TESTING IS DONE WITH PARITY CHECK ENABLED. PARITY ERRORS ARE 
REPORTED, AND TESTING IS ABORTED, UNLESS THE BYTE LABELED MEMABT WAS 


SEQ 0286 
SE@ 0007 


CZR6MD0 RK611/06 SS i 


CZREMD.P11 10-JAN-78 1 


4 
409 


SELLS SLILLICIC£ 
TOT ee 
WM -OWDONOULSWM-OWON 


MACY11 30A(10S52) 10-JAN-78 12:16 PAGE 9 


PREVIOUSLY LOADED WITH A NON-ZERO VALUE. 


4.7 BAD SECTORS 


ACCORDING TO a conn SWITCH OPTION ( 
SECTOR FILE N Ree DRIVE TO BE TEST 
fe) . ih DATA _ ERRORS OCCURRING 
IF__THEY OCCUR ON SECTORS DESIGNATE 
SOF TWARE ) . 


SEE SE AP S a. e. He 2 THE BAD 
ED wR HE CONSOLE PRIOR 
IN THE "PROGR TARE MASKED OUT 
D AS BAD (BY EITHER FACTORY OR 


4.8 EXECUTION TIME 

EXECUTION TIME IS DEPENDENT UPON PARAMETERS INPUT BY THE OPERATOR 
(SUCH AS STALL TIME OR pTERTTION, COUNT), AND TO A LESSER DEGREE UPON 
HE PROCESS HOWE VE THE “AVERAGE” TIME REQUIRED RUN A 
QUI CK-VERIFICATION (FIRST PASS) IS 14 MINUTES PER DRIVE. A SUBSEOUENT 


RIF 
PASS WITH PARAMETERS DEFAULTED REQUIRES 21 MINUTES PER DRIVE. 
NOTE: TIMES ARE APPROX. DOUBLED FOR RKO7 TESTING. 


5.0 PROGRAM LOADING 


THE PROGRAM CAN BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER OR 
FROM ANY MEDIA SUPPORTED BY XXDP. 


6.0 STARTING PROCEDURE 


6.1 STARTING ADDRESSES 
NORMAL STARTING ADDRESS OF TESTS 1-21 (PARAMETERS DEFAULTED) 


200 
204 Seken OPERATING PARAMETERS,RKO6/07 UNIBUS ADDR. AND INTERRUPT 


OR FOR TESTS 1-21 
220 DUAL-ACCESS DATA TEST 22 START ADDRESS 


6.2 SWITCH REGISTER OPTIONS USED 

THIS PROGRAM IS DESIGNED TO ALLOW THE USE OF THE HARDWARE SWITCH 
REGISTER IF PRESENT, OR THE SYSMAC-SUPPORTED er , peaks REGISTER 
(IF HARDWARE SWR IS NOT PRESENT OR IS SET TO ON IN THER 
ee ber th COLL CUING OPTIONS ARE IMPLEMENTED WHEN THE APPROPRIATE BITS 


SEQ 0287 
SEQ 0008 
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BIT OPTION 


SEQ 0288 


SEQ 0009 
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15 HALT ON ERROR 
14 LOOF ON TEST 
13 pNAT EET Eonoe REPORTS 
le REPOR ad bap (. ONLY, ON ERRORS 
11 gets T TIONS 
ae 
03 L RROR 
08 Bo BY Me Be Thee seit 
07 DO EXPLIC EK PER TESTS 
06 REPORT ERROR TRANSFER in TESTS 17,21 
OS INHIBIT WRITES IN T 
04 INHIBIT WRIT CHECKS IN" TEST 21 
03 eat a RE COMPARES IN TEST 21 
Oe NHIBIT_SOF ats] ARES IN TEST el 
O1 PES AFTER A WRITE CHECK ERROR IN T 
00 REPORT ALL SOFT COMPARE ERRORS IN TESTS 17,21 
NOTE 
FOR ADDITIONAL PROGRAM CONTROL OPTIONS 
SEE DESCRIPTION id CONTROL SWITCH WORD 
(CS), SECTION 8.2.4.2. 


7.0 OPERATOR ACTION 


8.0 PROGRAM ACTION 


8.1 DESCRIPTION OF OPERATING PARAMETERS 


SEQ 0289 
SE@ 0010 


1. LOAD sy gl NTO MEMORY (SEE SECTION 5.0) 

e. LOAD AF TTED PACK ON EACH DRIVE TO BE TESTED. 

3. ad NG DRIVE (S) TO ONLINE STATE, WRITE ENABLED, AND LOCKED ON 
4. LOAD. is peste D_STARTING ADDRESS (SEE SECTION 6.1) 

5. Bae cand C DESIRED (SEE SECTION 6.2) 

6. S START OR GIVE APPROPRIATE MONITOR START COMMAND. 


AFTER THE PROGRAM IS STARTED, IT TYPES ITS IDENTIFICATION, AS 
FOLLOWS: “CZR6MD BAYS HER A ? “SUBSYSTEM VERIFICATION: PART 1,” 
FOLLOWED BY: ohPSi SXXXXXAXXE ontién EITHER THE TESTS 
BoGt" re" ERTEIEO" atl "SraR ind agpeescea: section cord On “THiS” MODE 
rn ating ERE (SEE vee iaerED ee eta "ev vaarOUS MEANS. ALL 
PARAMETERS ARE ARE TREATED ne of ARAMETER LIST IS 


ERoMRO eer 1/0 


T6-JAN-96 11:48 
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SHARED AMONG THE TESTS. 
FOLLOWING IS THE LIST OF OPERATING PARAMETERS ICH H Reply 
URGENT SECRET ARN SE "PEAY FeaO Bala Pe irberat "ab THgES "IE. if 
ae SHOUN ARE THOSE USED” BY THE PkochAnS tect 


FC 


LC 


Ic 


FT 


LT 


IT 


so 


Si 


se 


$3 


Is 


RINGE ST REORROTPELE' IES"BCMULCY.SF™ OE OVER 


LAST CyL Inet SS_IN TESTS WHICH ARE DONE OVER A 
RANGE CYLI » LC=0-632, DEFAULT=632 


CYLINDER I MENT VALUE IN TESTS ase STEP THROUGH 
CYLINDER SSES, IC=1-632, DEFAULT 


PGE PRA SST halts ME OME ven 


AST Ti “ ApORE Ss TESTS WHICH ARE DONE OVER A RANGE 
OF TRACK oft. FAUL T=2 


TRAGIC WpRENENT i 5 SEP hi. A} ba ARE DONE OVER A 
GHRGE SEER. SOGRESS BREIESTS MULGH oe OBS AVR 8 
CTOR F TT CARTRIDGE. S0=0-23, DEFAULT=0 


Range POR ERRORS: “DsL5°"By MARY" DRIVE CRNICH AAS A 


20-SECTOR FORMATTED CARTRIDGE. Si=0-23, DEFAULT=23 
FIRST SECTOR SS IN TESTS WHICH ARE DONE OVER. A 
SeNgEcTOR FORMATTED CARTRIDGE. “Se=0-c5, DEFAULT=0" " 
LAST SECTOR AODRESS IN TESTS WHICH 


DONE OVER A 
BE aEcrBhe rORGLPTED cHPBrow!, LAcPEE "De PAICY oS * 


SECTOR INCREMENT VALUE IN TESTS MITCH ARE DONE OVER A 
RANGE OF SECTORS, IS=1-2eS, DEFAULT= 


DATA PATTERN 355557, WORD (SEE SECTION 8.2.4.1 FOR 
DETAILS) PT=0- 77, DEFAULT= 


Coe eboat BD WORD (aae SECTION 8.2.4.2 FOR DETAILS) 
cS=0- DEFAUL T=0 


WORD COUNT (NO. OF WORDS) USED IN DISK READ, WRITE, OR 
WRITE CHECK COMMANDS IN DATA TEST 20 , We=0-177777, 


SEQ 0290 


SEQ 0011 


CZR6MD0 RK611/06 SS VERIF 1 - 
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DEFAULT=MAXIMUM BUFFER AVAILABLE, WC=0 IS INTERPRETED 
AS 65,536 WORDS 


ce BUFFER) USED ON ALL DATA TRANSFERS iN TESTS 21, 22. He 
PAX- Bb AEEATER AUP HaDE EUAb nba ORGS Oe MOE rEy? 
DEFAULT = ADDRESS OF RWBUF. 


ST R OF UNIT STALL TIMES WITH WHICH TO STALL (DELAY) 
TWEEN Rxbe CORMANDS 
SM MAXIMUM NUMBER OF UNIT STALL TIMES USED IN TEST 12 ONLY 


8.2 SELECTION OF OPERATING PARAMETERS (ADDRESS 204 START) 


8.2.1 DRIVE SELECTION 


Sb rRaneTERPNBUT, Ague®, Then THe Akol1  REGYSTER ADDRESS) RxBe VECTOR 


OR ae: AND RKOG PRIORITY ARE o MODIFICATION AS 
1774 W=(T W VAL ) 
FKOe-O7 WE ADR = 219 NEHSCTYPE NEW VALUE HERE) 
RKOe-07 PRIORITY = =(TYPE NEW VALUE HERE) 
NEXT THE PROGRAM TYPES THE NUMBER(S) OF THE CURRENT DRIVES UNDER TEST 
FOUL MEO BY A (*) ON THE NEXT LINE TO REQUEST NEW DRIVE NUMBERS. FOR 
PARAMETER INPUT MODE 


DRIVE(S)=0,1,2,4,7 
* (INPUT, it ANY; GOES HERE) 


IWReDTERERS "YESS TEV CH Gne REEDS AP Aa EMHERS ORE Atnaend 
THOSE OT TYPED PE WHICH "BCEEPTABLE ul hoe wets oTED ASB TED AS BEFORE. onthe 
NUMBERS VAN THESE ATLL Co Be eHECKe BAG TYPED. UN UNTIL THE BPERATOR 
Y’ TYPE <CR>. 
NITIAL ENTRY_FROM SS 204, THE DRIVES WHICH I ARE AL 
IE Siac RUS trees ofa eet Pec Tine’ A 
ONS 


oy 
L 
BeFAULT ORIVE SELEY CTION oF OR ADDRESS 200 START). ON ALL OTHER ENTRI 
TO THE DRIVE SELECTION ROUTINE (VIA <tC> AS OESCRIBED IN SECTI 


SEG 0291 


SEQ 0012 | 


LL LL tt tt tt CL LLL CCC tt et 
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649 WHEN THE LIST IS COMPLETED, THE PROGRAM RETURNS TO TYPE : “ENTER L,C, 
650 OR I” AGAIN. 


CZR6MD.P11 10-JAN-78 11:48 SEG 0013 
59g 
508 | 
601 8.2.2.5 AND 8.2.3.6) THE PROGRAM FIRST TYPES: 
£85 To TEST AL DRIVES TYPE “A”<CR>, ELSE <CR> 
B04 (CHARACTER GOES HERE) 

606 DRIVES ARE LISTED AS SHOWN ABOVE. _IF IS TYPED, ALL 
607 BVAILABLE D RIVES WILL LL BE LISTED, AND IF NOT, THE PREVIOUS SELECTION OF 
609 
610 
611 
ble 8.2.2 TEST SELECTION 
614 WHEN THE OPERATOR F NALLY TYPES JUST <CR> IN RESPONSE TO THE ORIVE 
615 REQUEST, THE PR yBNTER THE TEST INPUT ROUTINE. THE FOLLOWING 
B16 INSTRUCTIVE LINES BRET 
618 L= = LIST TESTS 
be0 I = FNPUT PARBMETERS AND RUN TESTS 
bee THEN, THE FOLLOWING REQUEST IS MADE : 
624 ENTER L 
bes LERGRAGTERT Goes HERE) 
be? THE OPERATOR TYPES THE DESIRED CHARACTER PLUS <CR>. 
629 
630 
631 8.2.2.1 LIST TESTS, (L) 
633 IF (L) IS TYPED, THE PROGRAM TYPES THE CURRENT DESIRED TEST LIST, AS 
bat FOLLOWS : 
636 TEST TERAT 
637 ES ITERATIONS 
638 2 177777 
639 3 400 
640 4 
but ' ETC. 
643 THE | ITERATION NUMBER IS THE NUMBER OF TIMES THE TEST WILL BE RUN ugh 
644 THI rT MusT B BE TWEEN g AND 177777. IF 2 ZERO 
eue Test iy “hot RATIONS. T FARS' {IRE THROUGH, At Te RURBERS CIsteD 
ear at ADpRESS ofl fe » AND CAN BE BI TERED IN E ORE. 
| 
} 


C 
Cc 


MOO RK611-06 


MD.Pil 10- 


OM a Mi 
— 


Scac 
ib anintetei tk sub ani 


706 


S$ 


RIF 1 


AN-78 11:48 
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8.2.2.2 CHANGE TESTS, (C) 


: was 0 DEFAULT sEGUERTIDL EY Seen 
HE TTERATION NU NUMBE cree EACH 
Is oP FED AND THE TES uy 


S TYPE Ke ING 
OCTAL, FOLLOWED” (#) ON THE LINE. FOR SE XAMPL 7. s 


TEST ITERATIONS 
0 O * (INPUT, IF ANY, GOES HERE) 


THE OPERATOR THEN, I S THE NEW VALUE PLUS <CR>, OR JUST <CR> TO LEAVE 
IT UNCHANGED. nite wUSBER TOR TYPES A NUMBER FOLLOWED BY <!> 
ITERATION T IN For LR Ra INING TESTS: AFTER ALL TESTS HAVE BEEN 
OPENED, THE PROGRAM trafic ore PENS | "ENTER L,C, OR I” AGAIN 


8.2.2.3 INPUT PARAMETERS AND RUN TESTS, (1) 


IF (1) IS TYPED THE PROGR ENTERS THE PARAMETER LIST ALTERATION 
ROUTINE, DESCRIBED IN BORON 3, IN WHICH OPERATING PARAMETERS MAY 
BE INPUT, AND TESTING BEGUN. 


8.2.2.4 CONTROL Z (tZ) FUNCTION 


IF THE OPERATOR WISHES TO EXIT AT ANY_ TIME FROM L OR C MODE, AND 
RETURN TO SELECT A NEW MODE (L,C, OR I), CONTROL Z (#2) MAY BE TYPED. 


8.2.2.5 CONTROL C (tC) FUNCTION 


IF THE OPERATOR WISHES TO TERMINATE L,C, OR I MODE, AND RETURN TO 
REQUEST NEW DRIVES AND TESTS, CONTROL’C’(tC) MAY BE TYPED. 


8.2.3 PARAMETER LIST ALTERATION 
THE PROGRAM NEXT TYPES THE FOLLOWING INSTRUCTIVE LINES: 


T = TYPE List 
: : Ser in TVIDUAL PARAM. 
ENTER T TESTS RR 


* ER ORACTER GOES HERE) 
THE OPERATOR TYPES THE DESIRED CHARACTER PLUS <CR>. 


ee 


ESREMD.PL1 TO-JAN~P. 11748 


32 
S89 


ee 


NNNNNNNNNNN 


ron 


OWONOW SW O 


NNN 
fururu' 
fur 





02 
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8.2.3.1 TYPE LIST, (7) 
IF (T)_ IS TYPED, THE PROGRAM TYPES THE CURRENT PARAMETER LIST, AS 
FOLLOWS: 


XX XXX 


FC = X 
C = XXXXXX 


WEN. THE IST IS COMPLETED, THE PROGRAM RETURNS TO TYPE “ENTER 1T,O,S, 


8.2.3.2 OPEN LIST, (0) 


Fore Bc HE, EFBETES, PEOUPPHLIVEY ARTE rvol8, ORE"UeDonl sc EORMEDETS 
G5 SSOP OPTION Ua Gonkieten' QE ARIE EAS Gal TT 


ER AND ITS CURRENT VALUE (IN OCTAL) 
FOLLOWED BY (%) ON NOME SAME LINE. FOR EXAMPLES 


IC=3 * (INPUT, IF ANY, GOES HERE) 
THE RATOR THEN TYPES THE 0 wae YE" US A <CR> JUST <CR> T 
Vv R’ BLE PAR TERS HAV oBeen OPENE 
FER TERATION AMEE’ PROGRA TURNS YE “ENT R T,0,S, OR R” AGAIN. 
THE LIST OF DEFAULT PARAMETERS BEGINS AT ADDRESS “PROFLT”, AND CAN BE 
ALTERED IN CORE. 


8.2.3.3 SET INDIVIDUAL PARAMETER, (S) 
IF (S) IS TYPED, THE PROGRAM TY’ THE PROMPTER (>) ON THE NEXT LINE 
ieits F HE OPERATOR PES Hey THE VALUE OF ANY INDIVIOUAL 
ganas T,0,S, ORR 
> CENTER PARAMETER AND VALUE HERE) 
THE OPERATOR TYPES THE PARAMETER AND ITS NEW VALUE FOLLOWED BY <CR> A 


BN ples HE PROGRAM GIVES THE PROMPTER (>) AGAIN AS IN THE FOLLOWIN 


vw 


CZR6MD0 RK611/06 SS VERIF 1 
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TO_TERMINATE THOTT OUAL SELLING Fore THE QPERATOS tyra? CONTROL Z 
(#Z), AND THE PROGRAM RETURNS TO TYPE “ENTER OR R” AGAIN. 


8.2.3.4 RUN TESTS, (R) 


F_ THE URS TYPES (R), EXECUTION OF TESTS BEGINS, USING ALL THE 
URRENT P TERS 


8.2.3.5 CONTROL Z (tZ) FUNCTION 


WISHES TO EXIT AT ANY TI FROM T OR R_ MODE 
(RUNNING. Tes TESTS) ane RETURN TO SELEC NEW RODE” tt,0,S, OR R), 
CONTROL 2 (¢2) MAY BE 


8.2.3.6 CONTROL C (tC) FUNCTION 
TE THE OPERATOR WISHES TO TO aJERMINATE Taye 8 

RE TURN 0 REGUEST NtU DRIVE, SE SELEC TION (SEE SE 
APTER POE COMPLETING ETING ANY ANY DATA’ TR TRANSEERS 


MODE, OR STOP TEST 
AND THE PROGRAM WILL 
8.2.1). (ON AN 
THE PROGRAM TO HALT 


8.2.4 SPECIAL PARAMETER SPECIFICATIONS 


8.2.4.1 PT-DATA PATTERN SELECT WORD 
seer G oe hy At se A_WORD OF | fe part girs 1 ere OCTs QIGITS), TO 
FEE Ko any BIT set InPrec NOS t8’ THE AD. BECTR PATTERN 

IT OF PT (BIT at 1S SET, THE USER WILL BE ASKED 
Type UP 10 SIXTEEN TA WILL BE’LOADED INTO THE BUFFER 
FoR PATTERN 1 OGRAM T 


“SELECT USER DEFINED PATTERN 15” 
NANNER EARN af bnicy wine WOBERATING PARARE CF PRS ARE OPENED FOR ALTERATION 


(SEE SECT. 
(SEB VALUED * (NEW VALUE GOES HERE) 


= 
io 
2D 

7 o 
nu 


SEQ 0295 
SE@ 0016 
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5 te THE EMBER TYPES THE NEW Wane «CR 
“hERVE aT T’ niches P53 INPUT Wetiedee 

ie Y TYPE é 5 (EXCLAMATION POINT) 

oPte REST OF THE PATTERN 


HAN 1 
PROGRAM WwW 
15 FER WITH THE LAST WORD 
F ED. REX, PS PROGRAM WILL CONTINUE, IN T 


HE PROPER PARAMETER 


8.2.4.2 CS- CONTROL SWITCH WORD 
in D TION. ig ‘= OPT VIDED BY THE SWITC STER (HARDWARE 
R BOFT TROL Si Y TFT 


H_ REGI 
CON TCH D (CS) MAY BE SPECIFIED AMONG THE 
OPERATING G BARAMETERS TO PROVIDE THE FOLLOWING OPTIONS: 


ERRORS EXCEEDED 
(BSF’S) ON FIRST PASS 
S IN TESTS 13-16 
NOTE 


OTHER BITS UNUSED 
9.0 DESCRIPTION OF TESTS 


9.1 SEEK TESTS 
THIS GROUP. 0 OF vee) PERF A VARIETY OF POSITION 
THROUGH THE E noe ON OF READ ae COMMANDS 

TO SELECTED Cc AND HE AD Y 
THAT He. CORRECT INDE T GINS WI MPLE 
OPERATI WHICH VER : YEN Ng SBap ITY, AND PROCEEDS 
TO ons AY Bee ING WH R 
COMPLETION OF YS EM : 

BITS ARE CHECK 0 TERMINE ‘Ti SUCCES 

HROUGHOUT TESTING, SECTOR=FS, AND TRACK=FT. 


9.1.1 TEST 1 - RECALIBRATE/SEEK TEST 


THIS TEST WILL PERFORM A RECALIBRATE COMMAND (POSITION TO CYLINDER O 
B SEEK TO CYLINDER LC. (AS IN ALL OF THE SEEK Tests 


FOLLO Y_ A 
SEEKING IS IMPLIED, VIA THE READ HEADER COMMAND) . 


SEQ 0296 


SEQ 0017 


FOe 


CZR6MD0 RK611/06 SS VERIF 1 MACYL1 30A(10S2) 10-JAN-78 12:16 PAGE 19 SEQ 0297 
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872 

ie 

ce 9.1.2 TEST 2 - SEEK/SEEK TEST ; 

877 THIS TEST WILL PERFORM A SEEK TO CYLINDER FC, FOLLOWED BY A SEEK TO ~ 

878 CYLINDER LC. 

879 

B82 9.1.3 TEST 3 - CYLINDER ADDRESSING TEST 

Be THIS TEST VERIFIES THE CYLINDER a0er AD BITS, (BY SEEKING TO CYLINDERS 

886 ARE BONE tn Reverse BACK’ to Ct NDER 0. IN BINARY, The CYLINDER 

B87 ABBRESCES SEQUENCE AS FOLLOWS: 

889 0000) 

830 000000001 

891 000000010 

892 : 

893 

894 

895 a 00 

896 000000 

897 001000000 

898 

899 

300 , 

901 ooo000001 

902 ooooo0000 

903 

23: 

308 9.1.4 TEST 4 - CYLINDER ADDRESS CROSSTALK TEST 

308 THIS TEST PERFORMS S79 cy ADDRESS ES ARE SUSCEPTIBLE 

303 TO BI ROSST alk Koll A We RY ORGER WADBRESST LOGIC. FIRST A SEEK 

310 TO CYLI QLLOWED ¥ A geek 19 3 sane ( BeTAL). THEN A SEEK 

911 TO oO IS NE’ AGRIN AND K TO 376 THE CYLINDER ADDRESSES 

g1¢ SEQUENCE as One S 

gic Oot att tit 

aie B40 000 O00 

917 Oli iii 110 

918 000 000 000 

919 Oii 111 101 

320 300 000 000 

921 iil 1ii O11 

922 . 

923 - 

924 : 

925 000 000 000 

926 0i0 111 111 

927 000 000 000 
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101 111 111 
BY SEEKING TO O BETWEEN CROSSTALK SEEKS, THE CROSSTALK PATTERNS ALSO 
TEST THE CYLINDER DIFFERENCE LOGIC. 


9.1.5 TEST S - INCREMENT/DECREMENT SEEK TEST 


IN THIS TEST SEEKS ARE DONE IN INCREMENTS OF IC CYLINDERS STARTING AT 

AT OR BEYOND LC. THEN, THE SEEKS ARE DONE IN 

REVER BACK TO FC. IF FC IS CHOSEN > LC, THE SEEKS WILL PROCEED IN 
EVERSE, BAC DIRECTION. 


9.1.6 TEST 6 - OSCILLATING SEEK TEST 


THIS TEST FIRST naREKS To eae FC, WHICH IS INITIALLY EQUAL TO NC. 
THEN Nc IS RENENT fo A SEEK FROM FC TO NC IS MADE 
FOLLOWED BY A ENE BAe NCREMENTED AGAIN, AND SEEKING 
FROM FC TO NC TO 5° “RePeR EATeD UNTIL Ne OEX CEEDS LC. THEN, THE 
REVERSE IS DONE, DECREMENT NG NC E C 


9.1.7 TEST 7 - CONVERGING/DIVERGING SEEK TEST 


THIS TEST PERFORMS SEEKS WHICH EXERCISE Cv TNE DIFFERENCE VALUES. 
eet? DONE TO NCYL1 1 AND 


THEN T SReYLE, THER N Mi: vent NENGRERENTED BY THE DIRECTION 

Kee oA ities Pate RA rite MECBEORE' TES Epa “Efi 
INCREMENTED VALUE gor AND 2 L NCYLI EXCEEDS LC AND 
NGrbe ENGEEDS FC. BO ANE TEs tw otek TEERRESEIBLE.) a oe 


9.1.8 TEST 10 - PSEUDO-RANDOM SEEK TEST 


THIS TEST PERFORMS A SEEK TO A PSEUDO-RANDOMLY CHOSEN CYLINDER WHICH 
IS WITHIN THE RANGE (0-632), (0-14S6 FOR RKO7) 


9.1.9 TEST 11 - MAXIMUM VELOCITY REVERSAL SEEK TEST 


THIS TEST PERFORMS A_SEEK FROM CYLINDER O TO CYLINDER eO1(OCT), AND 

ACK TO CYLINDER O. THIS PARTICULAR SEEK CAUSES TH ee 1 
te TO MAXIMUM VELOCITY, AND THEN IMMEDIATELY DECELERAT WITH 

RECIABLE PLATEAU OF C CONSTANT VELOCITY. THIS OPERATION Ftnouces 

HEATING IN THE SERVO MECHANISM 


SEG 0298 


SEQ 0019 


ESRENB etl” T8-32n~> 


eee OOOO00 
WONT U 


So5000505000000 0000005 


oO 
fu 
KOWONOULWe-O 


RIF 1 
8 11:48 
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9.1.10 TEST 12 - MECHANICAL VIBRATION SEEK TEST 


SEES TERT, ERCP" SEPEETIIOR SL ASPRSRS UN et YS SEOEE ARAN 


BericPh'o MB" cc,"BcobbO HAE BEN af se DLV TOEE ev Pde EH 


PRE, Sb ete ea et eal ett 


—_ 
9.2 TIMING TESTS 


OPERAF IONS ° SPIROLE ROTATION AND SEEKING.» FOR EACH TEST THE FUNCTION 


MED FOR A GIVEN 
MINT SUM X IMUM AVER VALUES Al ED ALONG WI a THE 'N RUMBER 


R 
OF F OPERAT | WHICH EXCEEDED THE LIMITS SPECIFIED IN THE RKOG/07 DISK 
I Echt 


VE SPE 
NOTE- FOR SO HZ OPERATION, PATCH 1 INTO LOCATION 166 (LABELED HZ:). 


9.2.1 TEST 13 - MAXIMUM ROTATIONAL LATENCY MEASUREMENT 
THIS TEST MEASURES THE IN TERVe OF TIME BETWEEN 2 INDEX MARKS IN A 
SINGLE DISK RO ae wn SE Rete IED MAXIMUM ROTATIONAL LATENCY = 2S 
MILLI-SEC + OR - he NT IS MADE 128 TIMES. 
SAMPLE PRINTOUT -- 
aly: eet te 10 OW ’D MIN OF 24375 U 
XE Us °° SF 188 ABOVE SPEC’D MAX OF Ssecs US 


AVG = 2428 


9.2.2 TEST 14 - ONE CYLINDER SEEK TIME MEASUREMENT 


THIS TNDERS, MEASURES THE bh REQUIRED TO SEEK BETWEEN 2 ADJACENT 

evil NDERS BOTH IN T AND REVERSE DIRECTIONS. SEEKS ARE DONE 
0-0,1 2 ba 8 BND TH OMEN TO 631,630 1,0 AND THE RESULTS ARE 

1opEb oR" “eBaH DIRECTION THE apecteiEs” ONE cyl SEEK TIME IS < 8 


MILLI-SEC. NOTE: SEEKS ARE TO CYL 1456 FOR THE R 
SAMPLE PRINTOUT -- 
ONE CYL SEEK TIMES : 


SEQ 0299 
SEQ 0020 


cenerpa RK611/06 SS VERIF 1 
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Oo 
<= 
o 


ELLECL ILE 


C0O0000000000 
WUT 


ee ee ae te ae te ae ae Be be ee Be Be Bee pe be he he ee 
OOuuiU 


adatatgl 
TMLWM-OVDONOU CW -OVDONTU SWE 


ee ee ee ee ee ee ee ae ee ee ee ho ee 
Preeti 
ab ant itet afrit bet 
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aN oe hak 5 iene 
~ = 6749 Ue O OF 410 ABOVE SPEC’D MAX OF 8000 US 
aeREVERSE DIRECTION## 

MIN = 6314 US 


14 
ec US O OF 410 ABOVE SPEC’D MAX OF 8000 US 


MAX 
AVG 


9.2.3 TEST 1S - AVERAGE SEEK TIME MEASUREMENT 


THIS TEST Rene TRUE AV! BAGS SEEK TIME IN BOTH THE FORWARD AND 
matt DIREC I One. HE ue AVERMGE TIME IS CALCULATED FROM THE FOLLOWING 
we ne’? a 5% 110) that hs Lt tha - #741001) (2)170410) ¢ 
THE MEASURED TIME TO SEEK x CYLINDERS. FORWARD AND REVERSE 
+ we AND TYPED, SEPARATELY. THE AVERAGE SEEK TIME IS 
OPeeTFIED” TO < MILLI-SEC. 


SAMPLE PRINTOUT -- 


bel IRECTION## 
AVG = 3567 SPEC’D MAX IS 38000 US 
sel IRECTION## 

AVG = 35823 US SPEC’D MAX IS 38000 US 


9.2.4 TEST 16 - MAXIMUM SEEK TIME MEASUREMENT 
THIS TEST MEASURES Me {1 REQUIRED be SEEK FROM CYL O TO CYL 632 


oct (410 DEC.). THIS TIME REPRESENTS THE MAXIMUM SEEK TIME, AND IT 

pepgurey ict 28 TIMES IN EACH DIRECTION. THE SPECIFIED MAXIMUM SEEK 
went MILLI-SEC. 
SAMPLE PRINTOUT -- 

MAXIMUM SEEK TIMES : 

#*#FORWARD DIRECTION#* 

MIN = 68950 US 

= ° Ue O OF 128 ABOVE SPEC’D MAX OF 75000 US 

AVG = 691 

#*#RE VERSE pictzonss 

MIN = 70194 U 

MAX = 70667 US O OF 128 ABOVE SPEC’D MAX OF 75000 US 

AVG = 70407 US 


9.3 TEST 17 - SECTOR ADDRESSING TEST 


SEQ 0300 
SEQ 0021 


ee eee eee - - 
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1096 
1097 


~ 
oO 
0 
wo 


ITTEN, EACH WITH 2S56(DEC) 
OCT). NEXT, FOR EACH SECTOR 
A READ AND’SOFTWARE COMPARE 


IN THIS TEST, ALL SECTORS OF FC, FT ARE_WR 
WORDS OF ITS OWN SECTOR NO. + {00¢ 
WRITTEN A WRITE CHECK IS DONE, FOLLOWED BY 
OF THE DATA. 


9.4 TEST 20 - TRACK ADDRESSING TEST 


_ IN THIS TEST SECTOR FS OF CYL FC IS WRITTEN WITH 2sb | (DEC) WORDS OF 
THE TRACK . T), FOR EACH OF TRACKS O,1 THEN, A WRITE 
CHECK OF EACH SECTOR IS DONE TO VERIFY THE WRITES. “then, EACH OF THE 
3 SECTORS IS RE-WRITTEN, AND AFTER EACH WRITE ALL OF THE THREE SECTORS 
ARE WRITE-CHECKED TO DETECT TRACK ADDRESSING PROBLEMS. 


Ce cl el ee ed ee ee 


DOVTN LOW ODBVEN LOW Ow 


9.5 TEST 21 - READ/WRITE DATA TEST 


THE READ/WRITE DATA TEST HAS 2 1D tad Oe VERSIONS, DEPENDING ON THE 
VALUE OF THE DATA PATTERN PARAMETER (PT) 


FOR PT=0: 
THIS TEST 1S. pe peace Y ad FAULT DATA Teles a 


DUE START eee * it cy 
Pest’ THe NT IRE ree ee ie me NGLE, DATA BATTERN. eveis 
PATTERN 18 por 


es a ee ee ae ae ee ae ee ee ee be be 8 ae pe ae ee ee ae en Bn een ee be ae ee Be pe Bn be be 


ee ae a ae ee ee he ee ee a ee ae ne ee ee ee a ee ae be en ae ee Pe be fe be ee Be 


20 
21 

22 

23 

24 

2s 

Fed 256 ( OMPRAaAC T Ss sae rt 4 SE Parse THO LOWED D> By 'p 
28 ciuaoes D Sor Thane. ¢ i NTS Hee iy SECTORS 
29 EACH CH’ Penne tae HAT nt HE CAST. SEGMENT 
39 

32 FOR PT NOT =0: 

34 Tut /JWRITE _F' NT RANGE OF 
: eae ee Eee BL bP Were Rel Bctetithe “ERtd oat rem 
37 TEN wees WRIT BY A READ TWARE 
- ite | pe A ere aa ne ae, 
40 REPEATED Tae T “ NIN TER P 
42 RENAINING an eave. OPER I Pa SPE STNG ay EACH OF tt 
43 TE’ THAT Js IF Must be am RON GR’ = 5 AND He Most BE < 
yt ew TE CMA Y BE < Lean AND IF FO>LC, THE CYLINDER 
4S ADDRESS’ Witte VEE" DECREMENTED BY tet CINSTEAD OF TACREMENTED) TO OBTAIN 
46 EACH NEW CYLINDER ADDRESS. 

48 

a NOTE: 

> 

Si THE PACK ADDRESS LIMITS 


2 


O00 
ZUNASSOLEREOW-OOONeUEON SS 


N 


Leela idle amici ae ameial nel al aad ale ae ee ek ee a 
o 


v 
i 
— 


ee eh he ee ee 


ce LT F S.L8 aS Lo REFER TO THE RANGE 
am SECTOR ICH TRANSFERS MAY 
IN ING Lite MOPECIFIED WORD COUNT 


Bec US 
TRANSEE ERS hay’ PRT END. UB YOND THE ABOVE 


9.5.1 DATA PATTERNS 


EACH DATA PATTERN IS COMPRISED OF 16 yore Por ren ARE REPEATED AS 
NECES rams rat Mata iy: DESIRED WORD COUNT ON THE WRITE DATA COMMANDS. 

rs a OUNT IS DETERMINED BY THE AMOUNT OF 
AAAS oR space en THE PROGRAM, AND COULD BE AS 


T 
Esler toed WORDS. PIRALING AND TRACK SWITCHING IS 
hus” PO SI NG THE DATA TESTS. 


THE FOLLOWING IS THE LIST OF 16 SELECTABLE DATA PATTERNS (IN OCTAL), 
WITH NOTABLE FEATURES DESCRIBED: 


1 MACY11 30A(1052) 10-JAN-78 12:16 PAGE 24 SEQ 0302 
: SEQ 0023 
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0 1 2 


aad ay 
H LOW HIGH FREQUENCY LOW FREQUENCY PRECOMPENSATION 
PREQUENCY MIX FHASE MIX PHASE MIX PHASE MIX 


PSRRLGR SSE SER PERO Ba Tole 
y 
q 
oo 
38 
oo 
i 


oO 
a 


S 7 

TA ROTATING ALL ALL 
8G E CELL PULSE ZEROS ONES 
RECOMPENSATION PRECOMPENSATION 


eiatotetato 
22 
BBE 





042213 oss 177777 


ee ee ee ee ee ee 

HY Op 

Hf B 
IN 
for 
NN 
oo 
oa 
ra 
ful 
ba ee 
WwW) 
Wu) 
WW) 
WW) 
WwW) 


furururorerororurururururururururulvr 
rururye. ee my ta ey 
MK-OWONOULSWe-O 
ia 
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1224 
lees 
128 
i 8 Sg 10 aa 
lee8 SHIFTED 1 Pete TED 0 sit + nian — 
1350 has On a ge hae a 
le3e 
1233 77778 sseG (se 
1e35 17777 125252 
1 777 1 
is ee eas 
1638 170735 152525 
=i0 i7rer, = Obeees ese 
e4e 76777 oseses 12eS2S2 
et vere «Reese = (Bee 
gis 137728 beeses 1gases 
4 077777 Ses 1eS252 
250 
522 val etic Cc 43 T Pe Ac - 13 R- 
e53 B'S Anis ROTATING "RANDOM DEFINED 
ess 


ruroru 
Ww 

A AR 
ee 
NN 
———C) 
N 

Mc 
ORES 
OrRrwn 


ee ae ee ee ee ee ae he ee ee ee ee ee he ee 


es 7 Be 14 
260 

261 000177 016723 
262 000 107 
263 43564 
eb4 1777 1 ia 4 
26S 003777 

266 0 pi ise8 
267 017777 04616 
268 037777 123073 
269 077777 151453 
e270 177777 164616 
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74 9.6 TEST 22 - DUAL-ACCESS DATA TEST 

THIS TEST FERENT PROC IMUL TANEOUSLY 

a ent HORPEADEN oe Roof lis, Oe OSB Lea 

Bee aes MERNER: AL tebe are with 78 other est ar THe 
THIS TEST wees! READ/WRITE N WHICH 

ait ae BONE auy eis Weer 


HITE 
ETC.) ree ae srr Riggs ae be ae F Ee, 
aig Patten: Baa inl me BEES on 


ORIGINA 
Srett Cueei ¥5 ‘i “toes N FOR THE USE OF 


: StihotEn Sub oe Sa WE oe Ron ia me 


Oe he ee ee ae he ee he he ee ee ee 


SRR eae e RES 


e393 WHEN THE TEST (AT ear wu YPED 
301 SECTION gta 
302 T 

a es fe 


kas SR te of ol 
cle * ONLY T 22 
Cae oad ee ag ae "ae et 


ON” THE SAME DRIVE, 


Be 
My FF 3 
Brae 
= 


10.0 ERROR REPORTING 


10.1 COMMON ERRORS 


se a ee ee te Be ae be be ee ee ae be ae ae pe Be ae ae bw Be pe ee 
Riu II 
DOVTM Fw -ODS wer 


320 T FOL. owl IS A LIST OF COMMON ERROR MESSAGES WHICH ACCOMPANY ERROR 
3e1 TYPEO R THE SUBSYSTEM VERIFICATION PROGRAM. THE ERRORS ARE 
35 SELF- ANATORY. 

324 1. UNIBUS PARITY ERROR 

325 . NON-EXISTANT MEMORY ERROR 

326 3. NON-EXISTANT DRIVE ERROR 
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1327 
328 
UNIT FIELD ER 
SUBSYSTEM TARE our 
- SERC ITY E€ 


POPUNCT ERROR 


nie E 







Qh 
m4 
8 


CUE EEE SS BEE Uy a 


NG DRIVE STATUS 


Recreate 
Me STRAT DEID £99 SEER" Etno 






. ERROR 
- CYL OW ERROR 
2 ADDRESS ERROR 
p i 
° QNTROLLE TIMEOUT ERROR 
. HEADER vat ETE ERROR 
° TA_ CHE 
353 . WRITE 
354 - DATA M 
355 DORI ~- UFE AND NXD 
356 Ve is T ae? 
357 ° TA WILL NOT CLEAR 
358 - AT ATUS CHANGE OR FAULT 
359 - ATT Fee 
. E WHI 


Y REGISTER 
ieee 
TH CLEAR 
Runt ab Bing CLEAR DRIVE ATTENTION 
R SERVICING 
‘ Escereae ee SECTOR NOT LISTED BAD 


Bee 
= 


Renee nee eee Oren 


10.2 ERROR HANDLING 


RRORS TEMPTED, BY THE PROGRAM CONSIST OF COMMON FAILURES RESULTING 
ak ATTEMPT caver ’s "ER FUNCTIONS, AS WELL AS CERTAIN ERRORS UNIQUE 
PARTICUL EACH ERROR "PRINTOUT CONSISTS AN ERROR 
DESCRIPTION FAND "Feat NUMBER, POSSIBLY FOLLOWED BY HEADER LINES, COLUMN 


ee ae te ae ae ee a ee ee ae ee ae ee ee ee be Bn ae ae ne nn ne ba Bae ae ne ae ne ne Pe eas ae nn ns ne ne Dee as ne an ne an ne be be ne De 


WWWWWWWWWWWWWWWWWWWWWWW 
OBOE LUN OD NON FORO 





R 
o 
~— 
i 
~ 
_ 
oF 


- 
: 


8 é 
aw 


#* 


aa 


poe 


8S 


_ 


WWWW 
0 


a eee 
Pata 


SF 


w 
3 


ofoll-tetatett 


SSSSESSESESLEL ELE 


ee be ee 
DONO Fwrr-oDe 


se ee ee ee ae ee ee ae ae ee ee ae Be se ae a pe ee ne pw ae ee Pe bs ee bo 
OW ODD VEU Lowes 


SESCECECLSCCLSCSCLE CSE CLES ELSES LCL 


Bue 
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PIPy MAW HET I ad yw Ta 
He UTR PUA RDoReSS. CAND. “RERORY -MRNAGEHENT RECTLFER 


aus S' 
SONTENTS CIF NT) ARE REPORTED. OTHER ERROR REPORTS ev Reeiet ST 
OF A SINGLE DESCRIPTIVE LINE. 


BEML OF, REY FERRE FE STEEP ac RE AscHNRRes SAE nbfonTtSY 


HE PROGRAM CON TESTING 


10.3 ERROR PRINTOUT EXAMPLES 
EXAMPLE 1: 
cad -EXISTANT DRIVE ERROR 
Test 


OMMAND : 
pad Se gino YLNOR TRACK Baer on WO CNT 
177 © ooo000 ooo000 000000 


cuarent CON 5. 
epg ORIVE TRACK SECTOR WD CNT 


"hp Sty, Sle 600000 oooooo oo0000 ao0000 


pKeat WERT STEMS: 
pet RKOC RKDA RKWCR RKBA RKASOF 
140. B16t oooooo ooo00d ooo000 ao0000 o00400 


REMAINING REGISTERS NOT VALID 


EXAMPLE 2: 
ee pare MISCOMPARE 
EST 21 


PREVIOUS COMMAND : 
ORIVE or CYLNDR TRACK SECTOR WD CNT 


a Ba oooo00 ooo00d oo0000 036000 
0000 £9. 68 


CURRENT COMMAND : 
ERR PC DRIVE OMND CYLNDR TRACK SECTOR WD CNT 
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nae a ore. 000121 000000 
oooc00 074000 


PACK SS OF ERROR(S) : 
CYLNOR TRACK SECTOR 
000000 





i 


fu 


000000 


000000 





036000 


KIPAR6 


SEQ 0308 
SEQ 0029 
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ao APPENDIX A 
¢ SAMPLE ADDRESS 200 DEFAULT RUN 


HE FOLLOWING PRINTOUT we T ne att OF RUNNING SUBSYSTEM 
I i PART | NGLE OR DRIVE Saas 0) hone THE FIRST sacte 


PROGRDM POU IEk-VERIFY. PASS). IN THI 
NG aERE OUTPUTS - NO OPERATOR INPUTS hove. PROVIDED ON A ON Bn 


CZR6M-D - RK611/RKO6-RKO7 SUBSYSTEM VERIFICATION : PART 1 


be bh bb bo bb p= ph = be 


SSSESELLES 
POR SoM Nous 





1485 
1486 LAST PHYS MEM ADR = 377776 

1488 NT 

lugs BRT 2 RON mist NT 

1490 DRI ENT 

1491 ORI 4 x 1STEN ENT 

1492 IVE 5 x NT 

1493 DRI B NON- RISTENT 

143 DRI NON-EXISTENT 

1496 

ee pe 

i568 a ese WB: 8 

1209 acing 

1502 ROTATIONAL TIMES : 

1503 MIN = 241 89 OF 128 BELOW SPEC’S MIN OF 24375 US 

1504 MAX = A O OF 128 ABOVE SPEC’D MAX OF 25625 US 

1505 AVG = uy 

1209 K TIMES 

1308 EE Ee TTONEe 

1310 O OF 410 (814 FOR RKO7) ABOVE SPEC’D MAX OF 8009 US 
ies — 

1514 O OF 410 (814 FOR RK97) ABOVE SPEC’D MAX OF 8000 US 
i516 

1517 AVERAGE SEEK TIMES : 
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CZR6MD.P11 10-JAN-78 11:48 SEQ 0031 
1518 
1243 
1S20 - 
1S21 #*#FORWARD DIRECTION## 
1S2ee AVG = 7 ye may MAX IS 38000 US 
1Se3 ##REVE IPECTION#* 
i2s2 AVG = US SPEC’D MAX IS 38000 US 
1S26 MAXIMUM K TIMES : 
a 4 ria IRECTION#*® 
1528 MIN = 
133 We =6 3 O OF 128 ABOVE SPEC’D MAX OF 75000 US 
1$31 #*#REVE DIRECTION#*# 
1532 MIN = 7 ge Ue 
1833 MAX = 705 O OF 128 ABOVE SPEC’D MAX OF 75000 US 
1S34 AVG = 70379 US 
1$35 
1536 END PASS # i 


5 eh RK611/ 


££ 
wo 


ee ee a ee be ee 
nerve eran Ne) 
DDE UTE tor HO 


EKee 


moro 


LW OWONOU LW 


WIUIU UU 


NSNNNNAG oO 


OONTU 


se ae ee ee te te ee ee ee be he ee be Be hs be ee ee 
Pea aera ae 
DOOD LOMO 


O06 
10- 
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FOLLOWING pont 


ee he: aR ods ht 
sre 


Pree ies EB THAT TEST 2 


aleeTod 


aan Daa 


CZR6M-D - RK611/RKOG-RKO7 SUBSYSTEM VERIFICATION : 


LAST PHYS MEM ADR = 


PARAMETER INPUT MODE 


RK 

RK PRIORITY. = 

PR IVE 1 norextsTENT 

ORI 2 NON-EXISTENT 

DRI 3 NON-EXISTENT 
4 N= XISTENT 
2 XISTENT 

NON-EXISTENT 

DRIVE 7 NON-EXISTENT 

DRIVE(S) = 0 

L = LIST TESTS 

Ca ¢ 

I =z 

ENTER L, C, OR I 

* C 


De De Bus oes s hl ty O Ne 
06 NEW 


12:16 PAGE 33 


SES 0311 
SEQ 0032 


APPENDIX B 
SAMPLE ADDRESS 204 RUN 


th BET PHD a ote cles 


Be RON 2s( ocTaL) Tin Fines," 


ST Eh ONCE, THESE. Tests. Ue Me 
PS Obit al NEE 


377776 


TO DEFAULT TESTS TYPE D<CR>, 


PART 1 


INPUT PARAMETERS AND RUN TESTS 


ELSE <CR> 


sss em 


HO3 


OPS Go33 


7 
™ 
Les 
a -— 2 
nung 
wo HH 
= un 4ij8 « 
v poo cer G0 GoNegeo wo atm. 4 « 
gg tees sees Seeeeeses Lon! Sono . a Lon Hara oO 
ao —O000 UO 0 04 4 00— = - tf ce +. - 
Le --=O-- oo a - °o >wn wm 
1 a wu rw a te 
& rf o & S aa2ho 
Sa | e — rary ae 
' me . od . wz - 
Oo ail al OAWreZz Fe 
-_ >Ow 3d 
' _— | +o 9 
~ O-AUMNTUMONOAKUMNTWNORO- FU WAUMTMWOROA-UMTNWRORM Fe HHH FO 
cu Ww SAHA rv) SAHA Zz y 3 
" «x wx Wx F-OWk ux 
“~ 
az 
Oo 
™ 
— 
~ 
> 
oO 
< 
= 
@ 
Ya 
wae 
=“ 
we 
toe 
@o 
a 
z 
we 
J 
WO 
o- 
~ 
_ 
“4 
wo 
_—. 
—" 
oo. 
™ ROCro-TwM iad O-UMTWOOWO-uUM ‘ _ Tr ROCCO -UMTMNwWr wo 
PP RERRERESSYIASS BOUTON OORT RN OI ANNE aS BLO UOT Dg 
we UI 00000 0 Velvelvs vee lve Tvs lvelve tvs We) 0000) HWW DDOVVDVNDNDNNVUIVDOUVWWW 
Eh hh hk kk hk ad ad ad dd ed dd ad ad ak dad ad ad ad a ad ad ad ad ad ad ad ed dd ed de td 
OHO 


SEQ 0034 


SEQ 0313 


I03 
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CZR6EMD0 RkK611 
CZREMD.P11 


i] 
oa 
p ® 
x 
Oo i 
v oS 
iv) x 
uo 
a} z 
” Qa 
a o 
a 
S a 
w 
xs uw 
w i Y 
a as °o 
> w a 
i ft roa 
uw w 
® s ; 
e — ad 
a > x 5 
re a xcxw r z 
ea ivy) ™ oO ao 
« tha «ew am a 
a oS ow oa 
4 ' 2°. 
oe oO w w WW Cnn 
< oO bs; wes xed 
4 . - ‘od WwQ 
oa iY] oO a** °o oO o’ on 
ail o- . ar ac Qo 
| x tes = fu « - wo bs 4 1th] “wo 
z x me 2 a wo oO f- 9 jcwowo 
ve og_ereses., x a** whos no 9 > 
w =0 4 ™mO00 O-- ce HW - OF lt 
OS4ON-4ONON-ODFOOS Wo ONAN 400— Wi ->e o 
HUNK Kehna a i Hnnniu -aen nee uz 
oO coor rros Hela OUrFE Z OOOFFFO- ZOU a = rt ri) 
Reh IN UNM AEZOWM Wel Je UHM OwW Wxuix FOO “= 
COUNT MW WTO WA 4 QCO-wMTWNWwr wa cCoO- =UuMT 
Par tith eirtrtr. itr tid MORKRAAR ReRRR eS patti DOHHOOTFTSSPCEORPSOSSS 


ee ee ee ee ve) DDD SS I SS SS Se R RBA RE RR RTT TT TOTO RR OOO 
Ek hd hk hd dd hd ah ed ol dh dh ll ld md eh hl dd dd led ded ed eed wd ed 
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1705 
1706 
1707 
1708 AVG = g502 us 
170 #*¥REVERSE DIRECTION#* 
1710 MIN = 6301 US 
1711 MAX = 6682 US O OF 410 ABOVE SPEC’D MAX OF 8000 US 
iZis AVG = 6498 US 
1714 Cc K TIMES : 
1715 OOF OWRD DIRECT TONse 
1716 MIN = 6332 Us 
171 MAX = O OF 410 ABOVE SPEC’D MAX OF 8000 US 
1718 AVG = US 
1719 ##REVE DIRECTION#* 
1720 MIN = 6314 US 
1721 MAX = Bb86 US O OF 410 ABOVE SPEC’D MAX OF 8000 US 
1722 AVG = 
1353 K TIMES 
1725 aH BRE TIONS® 
1726 MIN = 6319 
1727 = i O OF 410 ABOVE SPEC’D MAX OF 8000 US 
1728 AVG = 
1729 ##REVE DIRECTION#* 
1730 MIN = 630 us 
1731 MAX = b O OF 410 ABOVE SPEC’D MAX OF 8000 US 
3 sie agen 
1734 ONE CYL SEEK TIMES : 
1735 as ORWARD DIRECTIONS 
= 
1736 MAX = bese te O OF 410 ABOVE SPEC’D MAX OF 8000 US 
1738 AVG = 1_us 
1739 *##REVE DIRECTION** 
1740 MIN = 7 US 
1741 MAX = 6698 US O OF 410 ABOVE SPEC’D MAX OF 8000 US 
17Me AVG = 6507 US 
174 
1744 END PASS # 2 
1746 To TEST ALL DRIVES TYPE “A”"<CR>, ELSE <CR> 
1747 
1748 
1749 
1750 a 


TT sss te — 


KO3 
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1758 oo0000 PART=0 sheer 
;#** IF “PART” IS DEFINED = 0, PART 1 WILL BE ASSEM 
12 3 :4e% IF “PART” IS DEFINED NOT = 0, PART 2 WEL BE ASSEMGLED. Prt} 
175 ;### REV OO4 #82 
ke 14 NLIST MC, MD, CND 
1759 bits AMA 
1760 167000 SSWR= 
s SEKKKERRERRESRREREEHERRRREKREEE 
1768 ‘Sart STARTING SSES REKRKKRARAAAEKRAARAREAAAAAHRLHAAALELE 
1764 + 00 T TERS FOR T 
ESTS 1-21 
ee EBs beeecteeerboneereay ete 2 
; UAL — 
126¢ 35 ae SURUeETs REGUGEEENERSSESENSESSUSSDSESERSESEESESSENEEOREEEOREEES 
1763 000001 STN=1 
TLE CZR6MDO RK611/06 SS VERIF 
Ha Edi ie al 
1773 af MAYNARD, MASS. 01754 — 
1275 ;SPROGRAN BY DAVE HOFFMAN 
1777 THIS PROGRAM WAS ASSEMBLED 
USING THE PDP- 
1778 HaPagkace (MAINDEC-11-DZQAC-C3), Sania, ate a wa 
1780 :SBTTL OPERATIONAL SWITCH SETTINGS 
1786 iS SWITCH USE 
1784 i a HALT ON E RROR 
ie + 14 LOOP Test 
1787 : 13 ACPOR y PTION ONLY, ON ERRORS 
’ 
1768 i i pric T FERAT IONS 
1790 + 4 
1791 i 8 Y 
BETWEEN OPERAT 
1736 i ? D9 Exetic T SEEKS Ih IN Tests, — 
iaa i% 6 T1 R TRANSE R iA” TESTS 17,21 
ime is 5 INHIBIT TES IN TEST net 
1796 3% 3 thu t RE te There “ConpaRe 
fe 14 :# 2 Mate t COMPARES I 3, ee a 
i738 eet GE ROR ET 
io” - SBTTL CONTROL SWITCH SETTINGS ( TER CS) Sm teers 0 
1806 i SWITCH USE 
1804 i, C*~S OS S*~=~=—sésSROP DRIVE IF 2OCDEC 
inte + 06 DROP DRIVE IF 20(DEC) ERRORS EXCEEDED 
; PE BAD SECTOR FILES (BSF’S) 
1806 7% 03 INHIBIT TIMING REPORTS a Tests 13 he _ 
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WO WODDOMDDODBMMMD 
[ele eed ee ed ed oe ed oD 


WN OW NOU £ WOW 


ela aol aed enh aned anal and and oad ened aed ad nd aed onl eed eel el ee eee 


geteuenRs 


gagaeeziiae 


TROWN 


se ee ee ee ae ee ee ee ee be be ee he ee 


DODODOoDD 
HOD VE 


10-JAN-78 11:48 
001100 


000011 
000012 
177776 
177774 
177772 


177570 
177870 


0000 


000003 


ae 


000006 
000007 


0000 
00004 
0001 
000140 


MACY11 30A( 1052) 





03 


10-JAN-78 12:16 PAGE 38 
CONTROL SWITCH SETTINGS (PARAMETER CS) 


-SBTTL BASIC DEFINITIONS 


AXINITIAL ADDRESS OF THE STACK POINTER *#* 1100 *%# 
EQUIV én , ERROR ;;BASIC DEFINITION OF ERROR CALL 
-EQUIV IOT, SCOPE ;;BASIC DEFINITION OF SCOPE CALL 
: *MISCELLANEOUS DEFINITION 

att ue ON Rone FOR HORIZONTAL TAB 

LF= 12 FOR LINE FEED 


o0O 
y+) 
" 


CODE EE 
i TESBE FOR EARRIAGE RETURN-LINE FEED 
WORD 


RLF= Bo 
PS= 177776 ;;PROCESSOR STATUS 


;STACK LIMIT REGISTER 
; oe bh REQUEST REGISTER 


SWR= 177570 RARE ST TCH REGISTER 
pe 155255 HOR DURRE Been Peer eter. 


’ 

D 33 
DDISP He 
-#GENERAL PURPOSE REGISTER DEFINITIONS 
mf T fsres 

= ab 33 RAC TER 
R3= %3 33 RAL TER 
Rez oe bi GENERAt REGISTER 
ee: ieee eles 
SP= % 33S R POTN E 
PC= %7 ;;PROGRAM COUNTER 
-¥PRIORITY LEVEL DEFINITIONS 
PRo= 0 33 OR TY L VEL 0 
PRi= 40 :iPR TY LEVEL 1 
PRo= 100 ;;PRIORITY LEVEL 2 
PR3= 140 ;;PRIORITY LEVEL 3 
PRY= 90 i ;PRIOR TY LEVEL 4 
PRS= S;PRIORITY LEVEL S 
PR6= ;;PRIORITY LEVEL 6 
PR7= 340 ;;PRIORITY LEVEL 7 
px" SWITCH ISTER" SWITCH DEFINITIONS 
eH = 1 

14= 4 
ej 

= 

Suis Piel 

10= 2000 
Swo9= 1000 
Swos= 400 

7=z 2 
WOb= 1 
WOS= 4 
SWwO4= 20 
SwO3= 10 


om 
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ee ee 


PESER Bae ENTER BS od ton oae eee 


38 


Se eeReuneS 


ee ee ee ee ee ee ee ee ee ee ee ee en ee ee ee ee ne pe ee Be Be 
@ 
wo 
N 


woonouvuuvwuwww 
ba he be Reh 
ONOWU LS Wle-O 


dooog2 


000001 


MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 39 


BASIC DEFINITIONS 


auoi= 2 
= @é2 
SWOO= 1 
-EQUIV SWO9,SW9 
fal Bee 
“ESuty Stine’ Bue 
Sai SWOS , SWS 
° Vv ; 
- EQUIV 1,SW1 
-EQUIV SWOO,SWO 
#0A as FINITIONS (BITOO TO BIT1S) 
y 


ee: 


DOODODODOODODODOODOOwWo-: 
Oe 


TOo= 

-EQUIV §ITO9,B1T9 

; au ¥ BIT0e, BiTe 

“EQUIV BIT07,BIT 

“EQUIV BITOb, BITS 

“EQUIV BITOS,BITS 

“EQUIV BITO4;BIT4 

; é ¥ BITO3, BIT3 

“EQUIV BITOe,BIT 

“EQUIV BITO1,BITI 

“EQUIV BITOO,BITO 

RARESTC CPU" TRAP VECTOR. POEEREFS i onsen ennon: 

fee C= 10 aoe AND ILLEGAL INSiIRUCTIONS 

TEITVEC=14 HH 

BPTVEC= 14 a E Teee TRAP (BPT 

OTVECs 20 Heng ta TRAP (10T) **SCOPE** 
= . 

ENTVEC= 30 ferent RAP (EMT) #*ERROR## 


TRAPVEC= 
TKV; ‘TTY Ki VECT 
TPvEk= es 33 1TY BRIA ER veEFoR™ 

PIRQVEC=240 OGRAM INTERRUPT REQUEST VECTOR 
'SBTTL MEMORY MANAGEMENT’ DEFINITIONS 


SEQ 0317 
SE 


Q@ 0038 


oan 


NO3 


c RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN=78 12: PAGE 40 SEQ 
CZREMD.P11 10-JAN-78 11:48 MEMORY MANAGEMENT Ber init TONS 2318 

1919 

1320 ;*KT11 VECTOR ADDRESS 

1928 000250 MMVEC= 250 

1324 ;*KT11 STATUS REGISTER ADDRESSES 

igse 177572 SRO= 177572 

1927 177574 SRi= 177574 

1928 177576 SRe= 177576 

1929 172516 SR3= 172516 

1931 ;*KERNEL “I” PAGE DESCRIPTOR REGISTERS 

1933 172300 KIPDRO= 172300 

1934 172302 KIPORI= 172302 

1 172304 K 17 

19 172 K 1 

1 172310 K = 17231 

tS SE biepese 17e3is 

1940 172316 KEpRes i2sate 

132 ;#KERNEL “I” PAGE ADDRESS REGISTERS 

1944 172340 KIPARO= 172340 : 

194S 17e342 KIPARI= 17 2 7 

1346 17 K 72344 

194 172346 K 17 

1948 172350 KIPARY= 1353¢8 

1949 172352 KIPARS= 172352 

1350 172354 KI = 172354 

1951 172356 K pangs 17 

1325 170200 MAPL 

1954 17Ge02 = 

1955 1721 MC =12 {MEMORY CSR REG START ADRS 

1956 177740 COE = '11/770 MEM LO ERROR ADRS REG 

1957 177742 HI 177742 :11/70 MEM HI ERROR ADRS REG 

1958 177744 MENSY =177744 :11770 MEM SYSTEM REG 

1359 .SBTTL TRAP CATCHER 

1361 ooo000 c 

1 5 #ALL D LOCATIONS FROM 4 - 776 CONTAIN A “.+2,HALT” 

1963 $*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 

1364 Abi : #LOCA TON 0, CONTAINS 6 TO CATCH IMPROPERLY LOADED VECTORS 
= 

1966 000174 O00000 ISPREG: . ; sSOFT ISPLAY REGISTER 

1967 BODI ze 000000 SURES: “ORD + OOF TWARE ee ret REGISTER 

1368 ~ SBTTL Starr NG ADDRESS(ES) 

1969 000200 000137 012522 MP aeOFSTRT ;;JUMP TO STARTING ADDRESS OF PROGRAM 
= 

1374 000166 go0900 HZ: “HORG 0 ;LINE FREQ. FLAG - O = 60 HZ 

i973 000204 000137 012574 IMP aePSTART 

1974 000220 .=220 


CZREMDO RK611/06 SS VERIF 1 MACY11 30A( 1052) -JAN-78 12:16 PAGE 41 
CZR6MD.P11 10-JAN-78 11:48 SHAT AG abbrececes) — 3 Bowe 
1375 60888 000137 o1ess6 va IMP QEDASTRT 
1358 bese Bot 100 > HIGH: . 1100 
1378 ‘SBTTL ACTIi 4OOKS 
1980 5 + REREREEERRRERRAEREREKRERRARARKAARAAAAAKKKAAAAAAARARARAAAAARAAAAAE 
1981 HOOKS REQUIRED BY ACT11 
1982 000230 ;SAVE PC 
1983 000046 
i o0004%6 025534 sENBao ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
1386 oo00s2 140000 “WORD. 140000 72 2SET Loc.S2 TO 140000 
198 000230 .=$SVPC ?: RESTORE PC 
1988 001000 ,51000 
1389 .SBTTL APT PARAMETER BLOCK 
1991 . see RATIONS of HD hl As REQUIRED FOR PT 
1992 Ser 24 AND 4 IRED 
1993 ;HUNESSSEAEEEAEEANSS SRSA EEEESEER SC 05850000 24000004 C000 EE 
1994 001000 .$X=. ; SAVE CURREN NT LOCATI 
1995 000024 ‘= iiSET POWER REAL T TO POINT TO START OF PROGRAM 
iggy CO00eN Oop aaa eoty POINT Tok apt I CT BODRESS PNTR. 
= ee 

1998 oo00044 901900 SAP THOR ;;POINT T r APT se 

00 H ptreaesinineensiis SE | jE: 
2001 SETUP T PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
200e t TRTERFACE SPEC. 
oboe restate oooo00 SHIBT 0 HIGH BITS OF 18 BIT MAILBOX ADOR 
2008 001002 001320 “oe SMAIL i AboRESS oF APT maiL x (BITS 0-15) 
2007 001004 001320 TSTM: WORD 1320 >; RUN TIH OF L ST TEST 
2008 001006 001546 PASTM: .WO 1546 ;3RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
2003 001010 o01546 SUNITM: .WORD 1546 ‘ADDITIONAL RUN TI (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
2016 001012 000030 “WORD $ETEND-SMAIL72 s sLENGTH MAILBOX-E TABLE (WORDS) 
2011 120210 AVECT1=120210 *RKVEC=210 PRI=S 
2012 177440 ABASE=177440 *RKBAS ADRS 
2013 000377 ADEVM=000377 :SET DEVICES 0-7 IN MAP 


CZR6MD0_RK611/ 


CSREMO PLL SO-SAN SSE tue | OYE SRRUNOR tacge O78 (12:16 PAGE Ne SEO 03 Bous 








2014 .SBTTL COMMON TAGS 
1 : See ee ae eeatNe URRICiE CORON aloanae LOCATIONS, 
ae jATHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
Sh39 .-=1100 
eoeh 001100 SCMTAG: ;;START OF COMMON TAGS 
ses Ses ststwm: iBvIE |B CONTAINS THE TEST NUMBER 
Spee | boriDs sich: BORD 0 t CONTAINS LO ERAT t_COUNT 
us i ° s° 
ae cr ge Hee eas “EfRgrS 
2029 001114 SITEMB: “BYTE 0 ‘Sais i nex ERRORS fens 
553° Botiig sERRPC: “FORD : KONTA el & ES 5 a 
soa; Paliee sepeoe: Hag Mans th 
SoHE: seooeT: “Bf EEF PL seo 
1 “WORD O 
oe Bie SiN: “EVE 8B SARIS PERE BIER 
mis ao 7 eee 
2044 146 177562 STKB: 177562 fie 
ee ie 17Feee bs 177554 TTY Bat fea 
0011 1 TPB: 17 b5 Ut ae 
001154 L: .BY 0 HH gee ILLS 
pO 5 O02 ILLS: Bvt e. t CONTAINS ier REQUIRED 
BBtie? ita : BVT 6 i AT ERRINAL bag” (BIT G7) =0=vES) 
ae 001160 a 3 CONTA FRON 
001162 : HE Aa )+0) 
 gguise seco: tong 9 igen ay 
11 $ « 33 S )+4) 
See fa: eS Hen | eees sth, 
seg olizs seas: HOD Louvain { #eege)212) 
2060 a SREG7: “WORD 0 Hg TA 3238) 
se Bait: Be Ent EEea eh 
Spee BoLsis SRecia; “HoRD 0 $s ONTe 3358) 
age Sele: (te Hee Be 
2068 001220 $REG17: -WORD 0 CONTAINS GAD) +36) 
2063 O0leze SREG2O: :WORD O : CONTAINS GAD) +40) 
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bb be bb bb bb bb bb 


WWWW 


apnea 3 
BicvzIn—3 


7 
> 


+ 


ro 


+ + 4 
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PERES INE TREN TES PROPONENT 


000377 


+ 








d 
ete 
538 


be tee 
ousco 


=} 


8 





SESRBBRRBER8 
ee 
FER HSS RONSON 
ote fu 


OC 
DOG 


rururororurorururururururorurururuorurururorurururory 


ee ee ee ee ee ee 


PWM SOO VOU LU ODD IRL 


MACY11 30A(10S2) 10-JAN-78 
COMMON TAGS 
SREG21: .WORD 
SREGee: .WORD 
WORD 


SURES ER EERE 


hp ia 


me 
ee 


g » ois sb 06005 0 26 18 EE 
‘STTL APT MAILBOX-ETABLE 


© SMe Sb SE Se 2 3 HG SE He HE HE HE HE He HG HE HE eH He HE a0 HE HEH HH HE a EE ERLE EERE 


OOOOOOOOOOO0000O 000000000 


~ ee 


N 


BSE} 1S 


say tare e care? 


DO 
12:16 PAGE 43 


;;CONTAINS ( (SREGAD) +42) 
CONTAINS ((SREGAD) +44) 
CONTA (¢ )+46) 
CONTA ¢¢ )+50) 
KoNTA (¢ )+52) 

a (¢ )+54) 
CONTA (¢ )+56) 
SSuTaHRS {Beep 5) 
ree RECS eS 

Ais {RESBSE0} 
Kenta (¢ 3358} 

Hains {Seco sr4} 

¢ Gap} +76) 


RReeneees 


g_ senses 


° 
- 
% 
mm 
- 


L 
I RETURN 


ee 


RESSAGE TYPE CODE 


a zt NUMBER 
iat 

Lt 

APT I Pn TABLE 
ENV 


FLOATING este PROCESSOR 
MEMORY MANAGEME 


@wo 
nun 


"IBSRLIS"S 


$6 36 HG Hh Hh He HE HE HE HE HE HE RRR RES 


SEQ 0321 
SEQ 0042 


(oie) 
NN 
e 


rm 
N 


rurururururufurufurvrulururulfururururururururu 
YY YY Peer rrr rrr 
FSWH-SBONERLOR- Sow 


SELL 
Onouw 


z 
R 33 


0 
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APT MAILBOX-E TABLE 


SMAMS1: 
SMTYP1: 
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CZR6MD.P11 10-JAN-78 11:48 ERROR POINTER TABLE SEQ OO46 
261 -ERROR 21 
001600 056670 EMel ;SEEK INCOMPLETE 
3 Boieba Bese8s sats 
S 001606 062650 DFO2 
Bee -ERROR 22 
2268 001610 056701 EM22 ;CYLINDER OVERFLOW 
5670 on 1615 pat 00 
001614 T1600 
a 001616 
227, 
2273 -ERROR 23 
56re 681532 Beibte pit ; ILLEGAL CYLINDER 
4 Tl 
2277 001626 062650 DF O2 
55g ERROR 24 
001 956731 pNe4 ;DRIVE OFF TRACK 
B01 i 100 
01 062504 DT100 
2283 001636 062650 DF O2 
Aa ERROR 2S 
Bata 001640 0S674S EMeS ;DRIVE TIMING ERROR 
2287 001642 061005 DH100 
2288 001644 04 DT100 
Bi 001646 062650 DFO2 
-ERROR 26 
001650 056764 EM26 ;DATA LATE 
2293 001652 DH100 
2294 001654 O62504 DT100 
z 001656 50 
- ERR 7 
2587 001660 056776 EGBBOR . ;CONTROLLER TIMEOUT 
2299 001662 0610 DH100 
2300 001664 DT100 
2301 001666 062650 02 
8303 -ERROR 30 ;OPERATION INCOMPLETE 
001670 057013 —M30 
2305S 001672 061005 DHi00 
2306 001674 062504 DT100 
e307 001676 760 os 
2309 -ERROR 31 
2310 001700 057025 EM31 ;HEADER VRC ERROR 
2311 001702 1005 DH100 
2312 001704 062504 07100 
e313 001706 062760 
2315 -ERROR 32 
2316 001710 oS7041 EN32 ;DATA CHECK ERROR 


CZR6MDO RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 48. SEQ 0326 
CZR6MD.P11 10-JAN-78 11:48 ERROR POINTER TABLE SEQ 0047 
17 1712 H100 
e31g ORI71G Be10ns 198 
gal 001716 063014 DFO7 
53st sERROR 33 
2322 001720 OS70S6 EN33 ;WRITE CHECK ERROR 
e323 001722 061005 DH100 
0017; 504 07100 
See 0017. DF 1 
535 -ERROR 34 
2328 001730 057072 EM34 ;DATA MISCOMPARE(S) 
5350 Obiea4 | besSoR pt tOD 
3 D0 1730 062744 o4 
2333 -ERROR 35 
2334 001740 057112 EM3S ;NO DRIVE RESPONSE-UFE & NXD 
335 001742 061005 Hi00 
336 B01 748 Obe504 T100 
2338 : 
g 39 -ERROR 36 
336 901750 057144 EN3e ;DRIVE ERROR WILL NOT CLEAR 
S3yh 00 1526 ate BpBoS 0 
e343 001756 000000 0 
534¢ -ERROR 37 :DRIVE STATUS CHANCE WILL NOT CLEAR 
e346 001760 057173 £M37 
He Spires Goose 
a3 Boi 3ee reat 0 
2351 -ERROR 40 
356 001779 7234 EM4O ;ATTENTION BUT NO STATUS CHANGE OR FAULT 
00177 1005 DH100 
354 001774 2504 DT100 
355 001776 50 DFO2 
5325 ERROR 41 
057300 EM41 ;ATTENTION BUT DRIVE NOT AVAILABLE 
4 061005 DH100 
004 06250 DT100 
e361 002006 0626 DFO2 
2363 “ERROR 42 
e364 19 057330 its ;ATTENTION WHEN NOT EXPECTED 
S3ee i§ bessos yates 
e367 16 062650 OFO2 
e3e8 “ERROR 43 ;ERROR WHILE GATHERING DRIVE STATUS 
sari SOE0R2 Tass rite 
2372 O02024 O62504 DT100 
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SEQ 0327 
SEQ 0048 


;CLEAR CONTROLLER DID NOT CLEAR ERROR 


;NO ATTENTION IN ATTENTION SUMMARY REG 


; UNSOLICITED ATTENTION 


; UNEXPECTED DATA TYPE ERROR 


;ATTENTION DID NOT RESET WITH CLEAR 


; SUBSYSTEM CLEAR DID NOT CLEAR DRIVE ATTENTION 


;MULTIPLE DRIVE SELECT 


;ABREVIATED HCE ERROR 


;OPERATION INCOMPLETE ERROR 


om 


04 


: 6 
e484 O02250 057644 EMeS ;UNSOLICITED ATTENTION 


CZR6MD0 RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE SO SEQ 0328 
CZR6M0.P11 10-JAN-78 11:48 ERROR POINTER TABLE SEQ 0049 
-ERROR SS 
902149 0S702S §M31 ;ABREVIATED HVRC ERROR 
33 Bosiua pessoa Bet OO | 
3 002146 063144 DF13 | 
-ERROR S6 | 
3 159 Os7uH3 EMS6 ;2 TIMEOUT ERROR 
155 Bel0Re Brig | 
| 
38 122 063224 DF1S 
any “ERROR 57 ;2ND LEVEL IN SUBSYSTEM TIMEOUT 
4 o92160 057443 EMS6 
244 162 061005 DH100 | 
2444 002164 062504 0T100 
2445 002166 063270 OF 16 | 
ai? -ERROR 60 
4 902170 057462 EM60 ;ERROR IN RECAL FOR RECOVERY 
2449 00217; 0 
2450 008174 000000 0 
ee 176 a | 
ERROR 61 
4 902200 057514 EM61 ;ABORT MESSAGE 
eee 202 000000 6 
24s possbe 000000 0 
2459 -ERROR 62 
219 44 tMbe2 ;CYLINDER MISCOMPARE 
sth Belots Byi8 
63 002216 063334 DF 17 
“ERROR 63 ;DATA ERROR WORDS 
SBE 002220 oo0000 Nt) : 
ee 222 oo0000 0 
68 2224 062576 DTe02 
2469 226 063444 
2470 
7 -ERROR 64 
72 002230 057560 §Me3 ;CLEAR CONTROLLER DID NOT CLEAR ERROR 
2473 OO0ee3e 061 DH100 
2474 002234 062504 DT100 
é 002236 0626 02 
-ERROR 65 
7 go224o 057616 EM64 ;NO ATTENTION IN ATTENTION SUMMARY REG 
47’ 2 061005 DH100 
80 002244 062504 DT100 
481 062650 oe 
2483 ERROR 6 
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; UNEXPECTED DATA TYPE ERROR 


;ATTENTION DID NOT RESET WITH CLEAR 


; SUBSYSTEM CLEAR DID NOT CLEAR ATT 


;DATA LATE WHEN UNLOADING HEADER 


;CONTROLLER ERROR DURING DRIVER SERVICE 


;ORIVE DETECTED PARITY ERROR 


; UNDEFINED ERROR 


;MARKING SECTOR BAD MESSAGE 


;BAD DATA VERIFICATION WITH READ 


SEQ 0329 


SE@ 00S0 


CZR6MO0 RK611/06 SS VERIF 1 MACY11 30A(10S52) 10-JAN-78 12:16 PAGE Se SEQ 0330 
SE@ 0051 


CZR6MO.P11 10-JAN-78 11:48 ERROR POINTER TABLE E 
e5uk 002366 063370 OF21 
2543 -ERROR 100 
3 eee psaed 5” ;RETRY SUCCESFUL MESSAGE 
ie T601 
4 063430 DF 23 


: ;ERROR 101 
M77 


44 

Me 

7 376 

4 

: ited F ;ANOTHER RETRY SUCCESSFUL MESSAGE 
062570 OT601 

$3 DF23 


ge 063430 
2554 
ZERROR 102 
poe419 be EM10) ;RETRY UNSUCCESSFUL MESSAGE 
2558 002414 062570 DT601 
59 o02416 30 OF23 
-ERROR 103 
002420 060307 €M101 ;NO VALID HEADERS IN TRACK JUST READ 
002422 061701 DHEO42 
2564 O02424 DT601 
002426 063440 
-ERROR 104 
a 060365 we ;BSE ERROR ON SECTOR NOT LISTED AS BAD 
T 
23 Goes Besos Bi 
2573 -ERROR 105 
a 49 060431 M1 ; TIMED-OUT ON READ HEADER 
7 4 H1 
ri 
5238 -ERROR 106 
2580 O024SO 060457 EM 104 ; TIMED-OUT ON SEEK 
a: i 
2585 sERROR 107 
2586 ppesee gtr at ;DRIVE SIEZED BY OTHER PORT 
2589 002466 062650 DFO2 
-ERROR 110 
ses Boe47e 960532 EN1OB ;"DATA MISCMPR WHILE BAI SET” 
94 74 062504 OT100 
e535 002476 063460 F27 


NOY 


Cc RKE1170 $8. VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 53 
pest -78 11:48 ERROR SOINTER TABLE 

-ERROR 111 

EM107 ;"NO NEM WHEN EXPECTED” 





,;ERROR 112 
10 ;"INTRPT WHEN CNTRLR NOT READY” 


ae 
=50- 


EE | 


1 
14 
16 OF 
‘ERROR 113 
gts BMIL ;"NO ATT'N ON SEEK” 
ele 04 DT100 
Eat 062650 OF 02 
is “ERROR 114 
seis tMile ;DRIVE’S CYLINDER INCORRECT 
1 DH70e 
261 44 DT20e 
DF26 
“ERROR 115 
OC 49 oo0000 rt) ; TYPE ADRS OF DATA MISCOMPARE(S) 
boSe44 Breo1 
Aec He 74 
-ERROR 116 
7972 En a4 ;DATA MISCOMPARE (11/70) 
1 H103 
Seat Q Af Bre0> 
2538 
26 -ERROR 117 
eb 90000 . ;PART OF DATA MISCOMPARE 
cay Oisece Sesibe : Brag? 
2638 
2639 -ERROR 120 
70 726 EM11 ;ABORT- CAN’T READ BSF 
2641 2572 1005 DH100 
2642 74 04 DT1 
e643 76 DFO1 
eb ‘ERROR 121 
754 €M114 ;KT11 FAILURE 
eb4 00s DH100 
48 604 o4 T100 
gbu9 063504 30 
2651 :ERROR 122 
2652 002610 060771 €M115 ;MEM PARITY ERROR 
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RIF 1 
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MACY 11 1052) 10-JAN-78_ Je: P 
sett REEtonHENTS IN THE an ROE Bers 
.SBTTL BIT ASSIGNMENTS IN THE RK611 REGISTERS 

~~ 
: | 14 13 le 11 10 3 8 
; CERR ! DI } DCPAR! CFMT ! CTO ! CDT ! BAI7 ! BALE ! 
: R/W RO § RO § RwWi RO ti RW i Rw iRrw } 
in Ie Eaten nacc ans ne entities 
; 7 6 5 4 3 2 1 i) 
: ROY! IE ! 1 Fy ? ‘ aie : 
; RAW! RE! RAW! RAW! R/$ RW! RE RA! 
ain ete Re ie Te ic eens a natn nh cone 
;RKCS2 
: 15 14 13 12 ll 10 3 8 
: DLT ! WCE !' UPE ! NED ! NEM ! Pi ' MOS ! UFE ! 
; Rs : et ...o N5 : NE R i RO i : : 
i Ee cn ie ei ee 
, * 6 5 4 3 ea TA Bi. 
: OR ! IR ! CLR ! BAI ! DESL ! DSe !0S1 ! DSO ! 
; RO #! RO ! RW t R/ ER OE RW OE OR 
; me ee ee ee ee eee ae ew we a ww wr wr wr wr nr eer aes ee eee 
;RKDC (DESIRED CYLINDER) 
: 15 14 13 11 10 g 8 
> NU ! NU # ' : * NU !p0C9 ! OCB ! 
; READ ONLY 
ara teen nsenehahaenenanenananereneranar—re ==nan ansehen 
ee 6 S 4 3 2 1 a) 
: pc7 ! DCB ! OCS ! OCH ! 0C3 ! DC2 ! DC1 ! DCO !} 
3 READ ONLY i 
en ctaecen—) 
;RKDA (DESIRED TRACK AND SECTOR) 
: 15 4 13 le 11 __10 . Pied ees 
: NU ! UN ! UN ! UN ! UN ! TR2 ! TAL ! TAO ! 
; READ ONLY i 
Hy tt 
, 6 5 4 3 2 1 0 
: UN ! UN ! UN ! SA¥Y !SA3 ! SA2 ! SAL ! SAD ! 
: READ ONLY i 


SPE oss 





CZR6MD0 RKG11/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 56 SEQ 0334 
CZR6MD.P11 10-JAN-78 11:48 BIT ASSIGNMENTS IN THE RK611 REGISTERS SEQ o0ss 
7 :RKDB (DATA BUFFER) 
3788 : re 14 13 12 11 10 q 8 
§3 ?DB1S ! DB14 ! DB13 ! beDB1e.t 7pBtt ! ! pB10 ! 089 ! DBs ! 
ee - - aeeaeeeeneena 
2788 . F 6 S 4 3 2 1 0 
: DB7 ! ’ : 3 ' O81 ' poBo ! 
se j O87 1 0B 08S he RB vat 7 
e730 AgSOF (ATTENTION SUMMARY AND OFFSET) 
= 15 i3 le 11 10 3 8 
736 late 7 ATNG | ATNS | ATNY ATN3 ! ATN2 | ATNI ! ATNO } 
as st ah ee 
74 
erie ; ? & Ss 4 3 2 1 ry) 
744 > UN ! ' ' OFY F3 OF2 ! OF1 ! OFO ! 
Hal : . i “ we be Sb Jwrt Te thee em i 
ouB fi (WORD COUNT) 
e745 ; 15 14 13 12 ll 10 3 8 
ee 
WwC1S ! WC14 ! WC13 12! WCll ! wcl10 ! wc9 ! wes ! 
578s ; Re Ab fini re~ 
2754 : 
83 Se  rweser , . SO _ See ae Bes _ ae 
2757 > WC7 ! WC ! WCS # WOH ! WC3 ! wee ! wWCl !wco ! 
2758 heASswrite 
spo a A (BUS ADDRESS) 
27s ; E Fy i3 12 ll 10 g B 
764 ‘BAIS ! BALY ! BAIZ ! ' BALL ! BAIO ! BAI ¢* BAS ! 
576s ; Re Boa firitE” i 
2767 . 
6768 . 6 5 4 3 2 HGRaAL F 
770 : BA7 ! BAB ! BAS ! ' pre ! BAL ! : 
2771 : ’ ¥ RERD WRITES iALWYSO! 
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CZR6MD.P11 10-JAN-78 11:48 BIT ASSIGNMENTS IN THE RKG11 REGISTERS se 003 Boss 
773 ;RKER (ERROR REGISTER) 
aie ; 15 14 13 12 11 10 9g g 
77 : DCK ! UNS ! OPI ! OTE 'WLE ! IDAE !' COE ! HVRC ! 
ect : READ ONLY 
779 , 
6780 ; 7 6 5 4 3 2 1 0 
7 : BSE ! ECH ! DTYPE! FMTE ! DRPAR! ILF ! SKI ! ILC ! 
aE FE, NN 
785 ‘ 
2786 RKDS (DRIVE STATUS) 
6787 14 11 10 3 a 
2789 :SVAL ! OSC ! PIP ! SPON! WRL ! UN ! UN ! DTP !} 
e730 : READ ONLY 
792 . 
e733 ; 7 6 5 4 3 2 1 0 
2795 :DRDY ! VV ! DROT ! SPLS ! ACLO ! OFSET! UN ! DRA ! 
e738 WAG REX READ ONLY air : 
2798 ; 
2739 ;RKMR1 (MAINTENANCE REG 1) 
Seno ‘at, ee ae M, Biodoat. _ I, 
2802 ?RD ! WRT ! ECCW ! PCD $ PCA $ MEWD  MERD } MCLK } 
2803 ;GATE ! GATE ! : ‘ : 
e804 ; READ ONLY i READ/WRITE ! 
806 . 
e807 ; 7 & S 4 3 2 1 0 
2809 MIND ! MSP ! DMD ! PAT !™S3 ! mS2 ! mMS1 ! MSO ! 
2810 : READ/WRITE 
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CZR6MD.P11 10-JAN-78 11:48 BIT ASSIGNMENTS IN THE RKELL REGISTERS 
eg1e s RKECC/PAT 
e813 ; 1 14 13 12 11 10 4 8 
2815 : UN ! UN ! UN ! UN ! UN ! EPAIO! EPAS ! EPAS ! 
5815 rae READ ONLY ‘ 
18 See ee ee ee Roe ee eek: tr ee 
2819 5 S 4 3 Eg 1 0 
ses? ?EPA7 ! EPAG ! EPAS ! EPAY ! EPAS ! EPA2 ! EPAL ! EPAO ! 
5555 ; READ ONLY ‘ 
4 ee nee eS 
2825 RKECC/POS 
e828 : 13 12 11 10 a 8 
2828 : UN ! UN ! UN !_EPO12! EPOL1! EPO1O! EPOS ! EPOS ! 
soe} ; READ ONLY H 
2831 4 
2832 , ? 6 Ss 4 a 2 1 0 
2834 :EPO7 ! EPO6 ! EPOS abot ' EPOZ ! EPO2 ! EPO! ! EPOO ! 
Sea> TOE, ._. AD _ONLY a 
37 ‘ 
2838 ;DRIVE STATUS INFORMATION 
2840 ;LINE A MESSAGE OO 
coal : 1S 14 13 12 11 10 a 8 
2643 : PAR ! DSC ! PIP ! SPON ! WRLK ! OFFON! FMT ! DRTP ! 
sBue , 
eee . F % 5 4 3 2 1 0 
eee :DRDY ! VV ! DRA ! NU ! NU ! DRIVE SELECT CODE ! 


SEQ 0336 
SE@ 0057 
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2850 
e851 
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S VERIF 1 
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MACY11 30A(1052) 
BIT ASSIGNMEN 


SPAR ! UNLDG! RTZ ! LOG ! REV ! FWD ! SPEED! CART ! 
! OK ! PRES 


! INDEX! MULTI! 


GOS 


10-JAN-78 12:16 PAGE S93 
TS IN THE RK611 REGISTERS 


B MESSAGE 00 
14 13 12 
! UNS ! DROT ! DCLO ! 
6 S 4 
! ACLO ! IVDA ! UN ! 
A MESSAGE O01 
4 13 le 
! UNLDG! RTZ ! LOG ! 
' HDS ! : HOS ¢ 
6 S 4 


! BRUSH! HEADS! TRK 
; HOME’; HOME; FOLOWE 


B MESSAGE 01 

14 13 le 
! SERVO! oe aE, we H 
! BRAKE! ON 


AD_!WR GTE!WR CUR! SEC ! 


; HE 
FAULT! AND NO! AND 


NO! ERR ! 
'XISTON!WR GTE! H 


ERR !HD SEL! 


SEQ 0337 
SEQ 00S 


CZR6MD0 RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 60 SEQ 0339 
CZR6MD.P11 10-JAN-78 11:48 BIT ASSIGNMENTS IN THE RK611 REGISTERS SEQ 00S9 
2888 Lie A MESSAGE 10 
2889 1S 13 12 11 10 g g 
37 PAR! NU ! NU ! CYLINDER DIFF/OFFSET VALUE ' 
esse j Ce emeemeeoeesosrorssneesosecessnsos-sscsccsssoosssossese 
2893 
seed HS ES Peo , DK » ene . a EPR, (6. BeN, ta 
e896 :CYLINDER DIFF/OFFSET VALUE! NU ! ORIVE SELECT CODE ! 
898 ‘ 
993 ;LINE B MESSAGE 10 
231 ;_1S 13 SE, BE. EA . Tee aac 
: PAR ! ALIGN! NU ! CYLINDER ADDRESS ' 
5303 : ' SIGN ! i 
a TE Se 
06 ; 7 6 Ss 4 3 2 1 fs) 
2907 } en22------------=---------- +--+ ------ = ----------------- 
308 : CYLINDER ADDRESS ' UN ! UN ! 2! O 8 
sat? awe A MESSAGE 1 
eat > 45 14 13 12 ll 10 g 8 
e3i¢ : PAR ! DRIVE SERIAL NUMBER ! 
1 ’ 
e317 ; 7 6 S 4 3 2 1 rh) 
531g : DRIVE SERIAL NUMBER ! DRIVE SELECT CODE ! 
2920 Pentland eta 
2921 
s3 2 ;LINE B MESSAGE 11 
23c3 : 15 14 13 12 ll 10 g g 
2925 > PAR! NU ! NU ! DECODED HEAD ' SECTOR! 
2926 : i i i ADDRESS # COUNT ! 
2927 eS a 
2928 
2929 “oe 6 5 4 3 2 1 rs) 
2930 t enon a-----------5-------------5------=------=------=--- 
2931 : SECTOR COUNT mst wef 8S lel 
932 eee aan nnn nnn nnn nnn nnn nnn nnn nnn nnn n= = === === 
933 
2934 
2935 
2936 
337 .SBTTL RKO CONTROLLER REGISTER DEFINITION 
2939 oo0000 RKCSI= 0 ; CONTROL AND STATUS REGISTER 1 
2940 ooo002 KWc= 2 ; WORD COUNT REGIST ER 
2941 000004 RKBA= 4 :BUS ADDRESS REGISTER 
2942 000006 RKDA= 6 ;DESIRED TRACK SECTOR REGISTER 
2943 000010 RKCS2= 10 ‘CONTROL AND STATUS REGISTER 2 


enero a 


CZR6MD.P 


gue 
sig 
es 
e348 
e349 


e351 


e3s4 


={={=1={=] 
O00000 


MUN --O0O00 


We NUIW NUE 


Besseee 


000001 
000005 


000001 
000100 
00) 







RIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 61 
8 ll: RKO& CONTROLLER REGISTER DEFINITION 
RKDS= 12 ;DRIVE STATUS REGISTER 
RKER= . 14 !ERROR_ REGISTER 
RKASOF= 16 OA ESUERRY 2 OES REGISTER 
= . 

RKDCYL= 20 DESI TNDER REGISTER 
RKMRI= 26 MAINT REGISTER 1 

MRe= 34 MAINT GISTER 2 

MR3= 3 ; MAL GISTER 3 
RKPOS= EC IT ORMATION 
RKECPS= 30 ‘ECC IT ON INFORMATION 

KPAT 32 ECC PAT E TNE ORMATION 
RKECPT= !ECC PATTERN INFORMATION 

SBTTL DRIVE COMMANDS 
SELDRV= 101 ;SELECT DRIVE 

ACK= 103 PACK ACKNOWLEDGE 
CLEARS 105 ; DRIVE CLEAR 
weeps ti oe oT SPINDLE 
REFcET= i1e iOrecere 
SEEK= 113 REE 

TA= lel 5 eae 
Pose Dh is3 WR E vpTe 
WRHE AD= 12? Bie HEB HEADER AND DATA 
. THE FOLLOWING ARE NOT DR T ARE USED BY THE DRIVER 
; TO SIMULAT E A SPECIFIC RAE RES OPERATION 
RELEAS= 140 ;RELEASE DRIVE 
ROSTAT= 144 ise cs “renbeee DRIVE 
CONCLR= 176 R CLEAR (BIT 15 OF CS1) 
SUBCLR= 177 CO BSy ST EM CLEAR (BIT S OF CSS) 
INTR= 300 :GENERATE INTERRUPT TO CPU 
; DRIVER ISSUED SERVICE COMMANDS 
DR.SEL= 001 ;DRIVE SELECT 
DR.CLR= 00S :DRIVE CLEAR 
.SBTTL CONTROL AND STATUS REGISTER 1 BITS 
Go= BITO GO BIT 
IE= BIT : INTERRUPT _ENABL 
ROY= BIT? !CONTROLLER READY 
ei: Ae Be sotees Bits 
CDT= BITiO ? CONTROLLER TYPE (O=RKO6, 1=RKO7) 
C€TO= ~—=s«BITII ;CONTROLLER TIMED OUT WAITING FOR 
DRIVE RESPONSE 

CFMT= BIT12 !CONTROLLER DRIVE FORMAT (O=22 SECTOR, 


SES 0339 


1=20 SECTOR) 


SEQ 0060 


CZR&MDO0 RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 62 SEQ 0340 
C2REMD.P11 10-JAN-78 11:48 CONTROL AND STATUS REGISTER 1 BITS SEQ 0061 
00 o20000 SPAR= 8BI1T13 ; DRIVE BUS PARITY ERROR DETECTED BY CONTROLLER 
O01 o40000 D BITI4 ‘DRIVE INTERRUPT 
3002 100000 CERR= BITIS ;CONTROLLER ERROR 
3003 100000 €CLR= BIT15 ‘CONTROLLER CLEAR 
3005 ; THESE BIT DEFINITIONS ARE USED FOR ADDRESS 
300 H THE HIGH BYTE OF RKCS1 
3008 oo00001 8.BAlb= BITO ;BUS ADDRESS BIT 16 
3009 O B:BAl7= BIT1 : BUS SS BIT 17 
3010 000004 B.CDT= BiT2 ‘CONTROLLER DRIVE TYPE (O=RKO6, 1=RKO7 
3011 B.CFMT= BIT ‘CONTROLLER DRIVE FORMAT (O=22" SECTOR: 1=20 SECTOR) 
3pt3 .SBTTL CONTROL AND STATUS REGISTER 2 BITS 
3ote ppob to ea BIT pee Eee OR RE oat N BITS 0-2 
3017 000010 RLS=_ BtT3 :DESELE T OR Of RELEREE DRIVE iN Bite o-5 
3018 g90020 BAL= BIT4 : MEN qi NHIBIT 
3020 0 SCLR= Bite HELERR A erases AND ALL t BRives 
3021 000100 IR= BITS iT 
3022 0200 = B11? : OUT’ 
3023 000400 UFE=  B1T8 SUNT ara 
001000 MDS= BITS : LECT 
3025 000 =  BITIO : 
3026 004000 NEM=  BITI1 he Tsten i Bene” 
27 g10000 NED= §B1Tle iNON- XIST NT IVE 
028 0000 UPE=  &IT13 
3029 0000 WCE=  BIT14 MTech Cc ae TERROR” 
3030 100000 OLT=  ®BITIS A LATE E 
3038 SBTTL ERROR REGISTER BIT DEFINITION 
3034 oo0001 ILC=  ®BITO TLreeae Fung Fine ON CODE 
3035 pSILF= BiT0 ; a 
3036 SkI= Tl ;SEEK I 
3038 rete AKF=s = BITS ; i FUNCTION 
3039 000010 DRPAR= BIT3 i DRIVE TED Roses Bus PARITY ERROR 
3041 0 DTYE= BITS ae Tela ERROR 
3042 000100 ECH= BIT6 ; 
43 o0020¢ BSE= BIT? ROR 
044 000400 HCRC= Ts ; HE 
Spue O51 000 Cops BtTg RR RFLOW ERROR 
3549 Elie foes BiTio fe ea eee 
3048 g04009 WLE= BITIi TE LOCK ERROR 
3049 0100 OTe=  #BIT12 IMI 
3050 o20000 OPI= BITl3 OPERATION. is SRCKO INCOMPLETE 
305 040000 UNS= - BIT14 !DRIVE UN 
3082 100000 OCK=  BITIS ‘DATA CHEER 
3054 .SBTTL STATUS REGISTER BIT DEFINITION 


om 


OS 


CZREMDO RK611/06 SS VERIF 1 MACY11 30A(10S52) 10-JAN-78 12:16 PAGE 63 SEO 0341 
C2R6MD.P11 10-JAN-78 11:48 STATUS REGISTER BIT DEFINITION SEO ao6e2 
3056 000001 DRA=  =BITO sDRIVE AVAILABLE (CONTROLLER IS SET IF 
328 000004 OFST= IT2 torte oreeer> ee 
3059 000010 cLo= BIT3 :AC LOW 
00 SPDLSS= BIT4 ‘SPEED LOSS 
3061 oo0002 DCLO= BIT :DC LOW 
3062 0 DROT= BITS !DRIVE OFF TRACK 
 -3063 100 VV= BITE : VOLUME val 1D 
| 3064 0200 DRY= IT {DRIVE READY 
000200 CROY= ®BI1T7 !DRIVE READY 
3066 G00400 DOT= BiTe, Rie TYPE (O=RKO6, 1=RKO7) 
ee pes BH ary Tonuna. te, res 
| 3070 100000 SVAL= BITIS + OF AY US VALID 
| 3078 .SBTTL MAINTENANCE REGISTER 1 BIT DEFINITION 
| 3074 000017 MESMSK= 17 ;MESSAGE MASK 
| 306 oooge0 pats BITy iFORCE € EVEN PARITY ON DRIVE BUS MESSAGE LINES 
| 3078 000100 MSP=  BITb SORTER "SECTOR PULSE 
3079 000200 MIND= BIT7 fe NT 
MCLK= BITS MAINT 
3081 001000 MERD=  ®B1T9 MA DATA 
oo2 = BITIO : MAIN ae OATA 
| 3083 4 PCA= BITL ;P CORPE 
3084 010000 PCD=  =—«BIT12 : TON Ab 
ett 040000 pefdaT= Bitte fe are BEING READ OR MRITTEN 
3087 000 RDGATE= BITIS + RE 
3089 .SBTTL DEFINITION OF DRIVE STATUS BYTE 00 MESSAGE A 
ere: sone Bie pave yar gAOLE 
3093 000200 5: ORY= BtTS :DRIVE READY 
3094 000400 S:TYPE= BITS !DRIVE TYP 
3095 001000 5: FORM= Bits :DRIVE_FORMAT 
3096 002000 S'OFF= BITIO ‘OFFSET 
3097 004000 S:WRL= BIT11 ‘WRITE Lock 
3098 010000 S'SPIN= BIT12 i SPINDL ON 
3099 0000 8-PIP= gitl3 ITIONING IN PROGRESS 
3100 040000 "pSc= BIT14 ‘BR VE STATUS CHANGE 
3108 .SBTTL DEFINITION OF DRIVE STATUS BYTE OO MESSAGE B 
3108 g0g040 g.ICvL= BITS ; ILLEGAL CYLINDER ADDRESS 
3106 000200 SiFLT=— eed ‘DRIVE FAULT 
3107 000400 S:ILF= BIT8 ILLEGAL FUNCTION 
3109 po2000 eects BITio SEEN rREOnPL ee Se Caner en 
3110 004000 S/WLe= BIT1i WRITE LOCK ERROR 
3111 010000 5:SPLS= BIT12 i CREED Loss 
| 


aon 


ee 


CZR6MDO RK611/06 RIF 1 MACY11 30A(10S2) 10-JAN-78 1 SEQ 034 
SSRERD Pil B- Fane oo 11:48 BEE INETION OF DRIVE STA +5718 py Bvre Sa MESSAGE B 4 ska 5063 

3112 010000 S.OCLO= BIT12 ;D0C LOW 

113 020000 5:OROT= BIT13 :DRIVE OFF TRACK 
3ils 040000 S.UNS= BIT14 :DRIVE UNSAFE 
au .SBTTL DEFINITION OF DRIVE STATUS BYTE O1 MESSAGE A 

118 20 S.xXDOK= BITY ; TRANSDUCER OK 
3119 000040 ie Bite ; é 

te " F4 . 

31s? ue  BooR= 118 5 NTERLOCKED 
3122 000400 5.CART= BITS *CARTRAGE INTERLOCK 

1e3 001000 8. SPOK= Bitio ?SPEED OK 

” 4 

ise S030 Hee He iREVERSE e 
31 020000 “980 15 RETURN Cerise 
3128 040000 S.UNLD= BIT14 :HEADS UNLOADING 
3131 .SBTTL DEFINITION OF DRIVE STATUS BYTE O1 MESSAGE B 

1 0020 .SECT T4 ;SECTOR ERROR 
3133 000040 3: Becks Btte : ITE clock AND NO WRITE GATE 
3134 0100 2-WGAT= Bite :WRIT a AND NO TRANSISTIONS 

. HDF = 

3i3e 000400 S:MHD= 8178 :HEAD EAL HEAD SELECT 
3137 001 5.xXERR= BITS : INDEX ERROR 
3138 902000 5. DIB= TiO jDIBTT ERROR 
3133 4000 8-PLO= Tl ?PLO ERROR 

tut 5 2pno0 MDs BITLS aE OCTET ON SEEK 

NO ° = s 

te 258008 s-bACe: BHHI8 SERD-Beane 
gia .SBTTL COMMON MASKS 
3146 000007 M.ORV= 7 DRIVE CODE 
3147 00 M. PAR= BITIs Y 
3148 000. M. ID= ;BYTE ID 
3149 017760 M.CDIF= 17760 :CYLINDER DIFFERENCE/OFFSET 
3150 017760 M. CADD= 17760 :CYLINDER ADDRESS 
3151 077770 M.S = 77770 i RIV ve SER! NUMBER 

1 007 M.SECT= 760 ECTOR COUN 
3153 007000 M.HEAD= 7000 ?HEAD DECODE 
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MACY11 30A( 1052) 
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10-JAN-78 io: 38 PAGE 65 


AMETER BLOCK ALLOCATI 


- SBTTL 


wrnnmue ee 
or UT UTD RUEo Se IU Core UTED = IUTOO 


RC RC RC RC RC RC RC Rc DR RC RC RC RC RC DRC RC RC RC ORC RC RC RC RC RC RC RC RC ie 
OOUUUIUISE £££ 


OSS SESS SF SS SESS SESS Se SHE SS SESS SS SE Ss SSS Ss SEs es Stee we 


. SBTTL 


VEVVVVVVVVD 
w 
a 
nun 


PARAMETER BLOCK ALLOCATION 
go" eee 6° O° eepaaien 
! DRIVE NO. 


YLI R ADDRESS 
eaie- cea 


Ther ER bee 
REGISTE 


TAT YT 
El ie 
Bue 


SenSSaeSeeneeaneeseeahescHenencuancHxHAAECEEER 
PARAMETERS PASSED TO THE DRIVER 


THE FOLLOWING DEFINITIONS ARE USED TO PASS PARAMETERS 
O THE RKO6/RKO7 DRIVER 


0 ; DRIVE, NUMBER 
2 EH ores 

5 i SECT 

é orgs 

7 = ApBhees cars 16 BND 17) 

10 US ADDRESS (BITS O- 

i§ DRIVE STATUS LEME on 


SBTTL PROGRAM DEVICE STATUS REGISTER DEFINITION 

pauses B17? BENE BB. on 

peveris Bs i BUNe Eveb atten gt O*T* TREN 
DRVDSt= BITS ‘DRIVE Starus CHANGE DID NOT CLEAR 


SEQ 0343 
SE@ 0064 


| 
| 
| 
| 
| 
| 
| 
| 
| 
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tb be ae be ae pe ee 
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8 


POPUPOFOFOFUIUFOFORBFORD 


fu 
i 


raeoeatats 
Sep ouerourymrunnyruy 


3 
e 
3e 
3 
3 
cr 
3238 





VERIF 1 
11 


:48 


NOS 





3;NO TERMINATION TO COMMAND FOR AT 

bunt fe re Te Mg te CHECK 

?NO VALID ENABLE 
INAT ON OR 


sale beh ch eee 
T_ BUT 
OTHS 


He RESET 


MACY11 30AC 1056) 10-JAN-78 12:16 PAGE 66 

PROGRAM DEVICE STATUS REGISTER DEFINITION 

CMDTO= BITE 

W.WCK= BIT7 

NOCHK= Bite 

PBSVAL= BITS 

DRPORV= BtT10 

opSC= Tll 
SZD= BiTts 

5- UNS IT13 

Q.INIT= BIT14 

OTBAII= BITIS 


: FROM THE DRIVER TO 
P.cSli= 1 
P.CSe= 2 
P.WCR= 22 
P. = 24 
P.DTS= 
P.DOCYL= 
P.ASOF= 
o-kos 34 
P.OS= 36 
P.ADO= 40 
P.B00= 4e 
P.ADI= 44 
P.BOl= 46 
P.A1O= SO 
5 Rive S2 
P.Al1= 54 
p- Bide S6 
‘ = 
55 = He 


THE FOLLOWING DEFINIT cas ARE 
HE CALLING 


Rane Oe pet eer ten QUEUE 


Pana TER 


PARAMETERS PASSED FROM DRIVER TO PROGRAM 


FOR REGISTER RETURNS 





ee atte = =] 


ae 


pay 
c 


-SBTTL PARAMETER BLOCK O FOR DRIVE 
PARMO: .BYTE OQ 
gals 8 
. OR 
-BYT 0 
- BYT! 0 
-BYT 0 
- WOR 0 
- WOR 0 
- WOR g 
WORD OQ 
RD OQ 
0 
0 


;BUS s E 
;DESIRED TRACK AND SECTOR REGISTER 


CZREMD0_RK611/06 SS VERIF 1 MACY11 308(1052) 10-JAN-78 12:16 PAGE 67 SEQ 0345S 








CZREMD.P11 10-JAN-78 11:48 PARAMETER BLOCK O FOR DRIVE SEQ 0066 
3266 ) 0 ;DESIRED CYLINDER REGISTER 
326 ‘WORD O : ATTEN TON Su Y/OFFSET REGISTER 
ee theese eB BANS 
“WOR 6 i MeS L f STATUS BYTE 00 
327 ‘WORD O ; L S TATUS BYTE 00 
rs Hisers BB fees ie g Starts Orie 
> WORD : mE L g TAT Te 10 
75 “WORD : ME LINE 8 STAT TE 10 
2 “WORD O :MES L NE A STATUS BYTE li 
32 7 - WORD 0 ;MES L 5 TATUS BYTE 11 
3678 71 0000 “WORD O ‘ECC POSITION INFO ION 
32 71 “WORD O tECC PATTERN INFORMATION 
3281 .SBTTL PARAMETER BLOCK 1 FOR DRIVE 
3283 714 000 PARM1: .BYTE 0 ; DRIVE NUMBER 
358¢ ote ‘TORS OO CYLINDER ss 
002720 "BYTE O SET OR BODRESS 
ope7el ‘BYTE O :T RESS 
7 “BYTE O OFFSET 
25 723 - BYTE 0 >BUS g Tt ie AND 17) 
1 Se “WOR 2 + BORD ( 3 1e2,, 
30 WORD O ; PROGRAM TATUS INFORMATION 
3535 WORD O :C TAT "REGISTER 1 
WORD O :C TAT GISTER 2 
5 WORD OO ay BIstER 
3836 - WORD 9 Be t ano necis REGISTER 
WORD O : N eeFr REGISTER 
WORD rene 
‘WORD O ; ME L TATUS BYTE 0 
en 203 eB peace Cite & Haris ave o? 
3 00 “WORD : L 8 TAT Ma 
3307 pos7ee “WORD Og t Tatus BYTE 19 
3308 003776 WORD O 2 L e TATUS BYTE 11 
3309 002772 o00000 “WORD 9 ; 358 i" 8 TAT 5 BYTE 11 
3310 oge774 000000 * WORD 3ECC ON ORMA I 
331 I 776 OO0000 ‘WORD O 7ECC PAT ERN INFORMATION 
3313 .SBTTL TEMPORARY CONTROLLER REGISTER STORAGE 
3315 003000 oco0000 T.CS1 WORD O ; REGISTERS Topce FOR COMMAND AND STATUS 
3317 003002 00000 T.CS2: .WORD 0 : MPORARY - ¥ stoRAGE FOR COMMAND AND STATUS 
3319 003004 oD0000 T.WCR: .WORD 0 1 REGISTE AGE FOR WORD COUNT REGISTER 
3320 003006 o00000 BA: WORD O Tee eeary STORAGE FOR BUS ADDRESS REGISTER 
3321 003010 oo00 T.DA WORD O : TEMPORARY STORAGE FOR DISK TRACK AND SECTOR 


CZR6MD0_ RK611/ 
CZR6MD.P11 


3322 


ERROR LC 


re: 


a) 
4 
wio- 


ates 22332 


3358 


3362 003054 


4 003056 
S 003060 


10-JAN- 





RIF 1 
8 11:48 


CO6 
EmPORARY CONTROLLER AEGLETER“StoRRGE 


CCLR= 
NOAT= 
UATT= 


WAIT: . 


“WORD 


DRIVER PARAMERTERS 
177440 


oC WtWwrur-oO 


te 
AS44444 444444 


DODDOM DHWMwWDw 
——- 0M 


Ooo00000 O2O 


210 


PRS 


; TEMPORARY STORAGE FOR DRIVE CYLINDER 
j TEHPORARY _ 8] ORAGE FOR ATTENTION SUMMARY 
iTenponewy S1Oeace FOR Bate S860 Re oreren 
iTEmponaRy St FOR RAINTE Rae artful Fs 

; TEMPORARY ST FOR MAIN TENANCE REGIS Re 
TENPORERY 31 FOR MAINTENANCE GttER 
:T T FoR E a EAN" 

; TEMPORARY STORAGE FOR DATA BUFFER REGISTER 


; pores oe xoil yECTOR ADDRESS BLOCK 


RETURN F 
Deen EVERY COMMAND 
Fhe 


“Ee ee 


te 
iAOeaT REG 
a NTIAL ONLY) 


iar pg, THOT T WITH CLEAR 


a L HE HEADER 

cYED Pan me DRIVER SERVICING 
DRIVE ETE COMMAND tie OUT (QUEUED ONLY? 
:;MULTIPLE DRIVE SELEC 


; PARAMETER OK On OF Os BREF ON 

;WAITING F PHENO Sette 

;LOOP COUNTER “FOR ih TSECOND Tot aN OF DRIVE 
316 MILISEC OGRAM 


a AR DID NOT CLEAR DRIVE 


Se Oe ee ee Oe es ee ee ee et ee ee ee 
i 
- 
i 
i=] 


ks Tae 


| 
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seseegeRREEREBS 


ANZ 
003100 
003101 000 
1 
Be He i 
3 003108 020 
Zuo, Bosiio §6=— 98 
3402 OO3111 200 
3403 
zie 003112 002630 
3409 
3490 
Suit 
313 003114 oo0000 
14 0OO3 000 
3415 000 
3415 006 
3419 500 
3459 
3422 


3434 


Beesccessee 


WwW WWWWW) Ww 
er ee ee ee eee 


= GLEREOREBVRRPORES se 


BE 


888 
QO 
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004 


MACY11 30A(10S2) 
DRI 


mt Ll hy 12:16 PAGE 69 


VER PARAMERTERS 


W.SEC: 
4 & Rc? 


89: : 
AHEAD: 
W. TIME: 
. SBTTL 
INTMSK: 


010 


1. DRV: 


Renee _ 
EISSU: . 
WCEFLG: . 


. WORD 300 ;SECOND COUNT COUNT FOR ALL COMMANDS 

-wgep 3000, an POR beTVe SYELE poun 

‘Hoep RERSERPEBSESISTEDP MG RES PEe nes 
-BVTE 2, 4,10 it F tate RO RELEASED COMMAND ISSUED 

-BYTE ;DRIVES BEING WATCH-DOG TIMED 

INTERRUPT MASKS 

-BYTE 0 ; INTERRUPT MASKS FOR DRIVE IN PARAMETER BLOCK 


INTERRUPT MASK TABLE 


‘BYTE 3 tINTERRUPT MASK FOR DRIVE 4 

‘BYTE 4 INT RRUPT MASK FOR ORIVE g , 

BYTE BE INT RRUPT maak FOR DRIVE 4 

‘BYTE ot tENTERRUPT NASK FOR DRIVE & 

‘BYTE 200 : INTERRUPT MASK FOR DRIVE 7 

PARAMETER BLOCK TABLE 

a SBRIUE CALL. MUST BE LOADED INTO PBLKT 


TIME FOR WATCH-DOG TIMER 


pt é tOEat 70 NSTRUCTION IN PARAMETER BLOCK 
: .-BYTE SPECIFIC ceoreneneng INDIC. DEFLT OR PARAM MODE 
Me 6 eet BEY RUBRENG TESTS IF = 1 

: vt 2 tt el FLAG 

7 , 

ie: Se TRE Seat 0" 
ae eRe co RoC ERENT BYE 

. ’ 

Bef FE at ne a 
ie: pes Le gH a 

Rie 8 det RU TFAS PUD RS EEED RAO PO” 
BYTE 0O WRITE CHECK ERROR FLAG 


SEQ 0347 


SEQ 0068 


CZR6MD0 _RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 70 SEQ 0348 
CZR6EMD.P11 10-JAN-78 11:48 PROGRAM SPECIFIC RESERVED LOCATIONS SE@ 0069 







343¢ Go3143 © O00 RORTRY: “BYTE SOMOCRETRY™ Fag oe 
34 144 000 UB “fe te 0 ; UNTBUS MAP PRESENT IF = ! 
3437 003145 000 MEMABT: .BYTE O :SE BYTE eo NO ABOR 
3438 003146 000 POVL: .BYTE 0 ‘HELP F RLATD INDicay BR 
340 003147 000 oe trosueeri0. 0 H IN ig eel, QADED IF 0 
3442 ooo002 VFHDSW=B1T1 VERT Y HEADERS ct T 
43 WCDASH=BiTe ‘WRITE CHECK DATA SWITCH 
444 i0 RCDASW=BIT *READ CHECK DATA SWITCH 
ug OREGSW=B1 TY - [OFFSET REQUIRED SWITCH 
4 . 
ans LKS: .WORD 177546 ;KW11-L CLOCK 
3449 PKS: “WORD 172540 :KW11-P CON 
3450 PKSB: = :WORD 172542 ?KW11-P COUN 
seh PKRB: - WORD 172544 ?KW11-P C 
BEVER: ‘WORD tod ata VERT 
354 MEMVEC=114 ; ME I 
5 TCONLO: “WORD O iLO T OF AL IBRA 
TCONHI: - ORD : *HI BIT at TE 
BLWMIN: . :C T 
34 Ravens: “WORD OO COUNT OF REVERS 
a ae ig Bile OF Fou 
a ¢ - WORD g it tt REVER 
4 SOV AR: > WORD F ithe FOR PF 
MINILI: ewe oF RIN 'D TIME (F ) 
aue9 MINtHi: “WORD , ih? Bit MIN DT CF ORHARD > 
3 MAXTHi: : ie? BtTe OF Max NEAS’D TIME (FORNARD) 
MINIS; :HORD OO 16 18 OF MIN °D TIME (REVERSE) 
7 MINIHe: . ‘HI BITS OF MIN OT ( RSE) 
iv te: 8B Ay RLUE OF fe feea'g Je (eevee 
3474 OFT: - BLK *D256 j RECORD TORS F SOF TWARE 
34 BSFACT: "BLKW *Des6 >REC BF TORS FROM FACTORY 
VCMD: :WORD 0,0,0,0,0,0 : PREVI Cc S 
x COMSTR: .WORD 0,0,0,0,0,0 ;CURRENT COMMAND STORAGE 
34 C D0¢ PRMPLO: - HORD ;PREV. U.B. MAP REG O 
OC CRMPL : “WORD ;CURRENT U.B. MAP REG O 
84 BUFFO: .BLKW  *D66 ;OQUTPUT BUF’ 1 
8S POWOET: WORD O ‘LOW 16 BITS OF CONVERTED BINARY NUMBER 
ES HIGOCT: : 5 *HIGH BI OF CONVERTED BINARY NO. 
34 BUFPRT: : BUFFE INTE 
3488 RECODE: 0 :RECOVERY CODE WORD 
3489 ERRCOM: :WORD 0 :ERROR COMMAND 





CZREMDO 
CZR6 


Ses tne oR ae eRAEBESS 


RRR 


-_ 
eases 


g 


MO. 


1 





oose0e 
OOS60& 


8 


oor WE£WM-O 


E 


ooS&26 


RK611/06 
Pil 


oO 





- JAN 


JULUUE 
segeac 


nN00G 
700000 


000000 
000 


000 
000000 
000002 


Se005008 
eee a aT ara 


I 


1 


1: 


48 


MACY11 30A( 1052) 
PROGRAM 





10-JAN-78 12:16 PAGE 71 
SPECIFIC RESERVED LOCATIONS 
DRIVE: . 0 ; SE 
STALLS: “WORD 0 : yf STALLS TO APPLY 
CYLNOR: - HORD 0 ; NUMBER 
. . , 
hain “HOR 8 : WORD 
NCYLe: . 0 . WORD 
OFINUS: . 0 ; 
InTeuR: : WORD 
aE: WORD 0 : BYTE GIVES AUTO-S 
ONLINE: : 0 : TE INDICATES A 
: 8 ; IVES 
SCRACH: . : L NORD 
PATRN: - HORD 0 :DATA PAT WORD 
XXDPAD: : 0 :STAR XXDP LOADER 
Vv: .BLKW Q : XXDP {CAL SAVE ADDRESS 
NaS E “WORD 3(+) OFF 
WOSXFR: BORO 3 ;NO. oF LORBS ACTUALLY XFERRED 
FINCYL: .WORD 0 ?FINAL ¢ INDER ADRS 
FINTRK: - BYTE 0 sEINAL K ADRS - 
FINSEC: .BYT 0 :FINAL SECTOR 
LASTWC: : WoO! 0 ; ACTUAL FINAL WC 
PMA: "BLKW 2 ‘PARTIAL TRANSFER MEMORY START ADRS 


TS) ad DESIRED DRIVES TO TEST (IF BYTE=0, DON’T TEST DRIVE) 


‘ByreE ‘DRIVE 
fa 
BE BaIVE § 


-LIST OF DRIVE TYPES O=RKO6&, NON O=RKO7 
OTYLST: 


BYTE O ;DRV 0 
YT 9 :DRV 1 
YT ;ORV 2 
‘BYTE 0 :DRV 3 
‘BYTE O :ORV 4 
YT 0 ;ORV S 
YT 0 ;DRV 6 
BYTE 0 :DORV 7 
;LIST OF ITERATION COUNTS FOR DESIRED TESTS (IF=0, TEST NOT RUN) 
jfiax TERATIONS = 77776 (OCT) 


ann LLOWABLE NUMBER OF I 


SEO 0349 
SEQ 0070 


RRR RAG 
VLG OSDUE @ 


SSE MEREMYRMAACS SES 


Pgituintainiatatatatny 


BSPVERL OHO 


WwW 
o 
oO 
rs 


06 


RKE11/ RIF 1, MACYI1 30A(1052)_10-JAN-78_ 12:16 PAGE 72 
ti 96- ~— 11:4 PROGRAM SPECIFIC RESERVED LOCATIONS EO PS 0071 
‘ 10 ;TEST O1 
“WORD 200 !TEST Oe 
gs 1B eet 
’ 
“WO 2 : Fey o¢ 
‘WORD 2 TEST O6 
“WORD 2 TEST O7 
“WORD 400 TEST 10 
‘WORD 500 TEST 11 
“WORD 2 TEST le 
“WORD 1 ‘TEST 13 
“WORD 1 ITEST 14 
“WORD 1 :TEST 15 
“WORD 1 TEST 16 
“WORD 10 tTEST 17 
“WORD 10 TEST 20 
“WORD 1 TEST 21 





ib 1S, 0F DEFAULT ITERATION COUNTS FOR ALL TESTS 
Oose7g 10 .WORD 10 ;TEST O1 
7 boost i i? Test 
+ ' » , ; 
cent WORD 10 ?TEST OY 
‘WORD 2 :TEST OS 
WORD e : TEST 26 
- WORD 2 ?TEST O 
: 400 ‘TEST 10 
71 :WORD SOO :TEST 11 
71 ‘WORD 2 :TEST le 
zie Beeost 8 Heat 13 
0057 000001 ‘WORD 1 :TEST 15 
cee 900001 ‘WORD 1 :TEST 16 
7 0010 ‘WORD 10 :TEST 17 
726 000010 WORD 10 ?TEST 20 
0057 000001 WORD 1 : TEST 21 
oo0021 NMTSTS=<DFLTST-TSTLST> 72 ;TOTAL NO. OF AUTOMATIC TESTS 
jOPERATING PARAMETER LIST 
ie Pant WORD O FIRST CYLINDER 
057 teetate C&: - WORD 0 sLAST CY RL INCREMENT FOR RKO, 1456 FOR RKO7 
popes ete ¢: "WOR 4 ierhay R 
005742 oo00002 LT: WORD 2 ;LAST TRACKS 
744 000001 IT: ; WOR 1 : TRACK NCRENE MENT 
ode 000000 So: “WOR 0 ‘FIRST SECT IF 20(DEC) SECTOR FMT 
5 000023 Si: ‘WORD 23 tLAST SECTOR IF 20(DEC) SECTOR FMT 
005 Se: WORD O :FIRST SECTOR IF 22(DEC) SECTOR FMT 
005754 900025 $3 WORD eS ‘LAST SECTOR IF 22(DEC) SECTOR FMT 


St A RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 73 SEQ 0351 
CZR6M0.P11 10-JAN-78 11:48 PROGRAM SPECIFIC RESERVED LOCATIONS SEQ 0072 


3602 000001 IS: ; 1 OR INCREMENT 

3603 Boe7eG 000000 PT: “ORD Sour a PATTERNS SELECT Ba Q. (@ITs 0-15) 

SAS Bree Basses - (SB i ik fe oe Pore: (BN: 08: (BITE O28), 

3508 p08 aes WC: -WORD 403 Ae "WROD CNT IS 65,536 DEC) 
7 CS: -WORD QO CON R PenrtcH 

3608 005772 9000000 ST: -WORD O OF UNIT STALLS 

at 008774 001000 SM: -WORD 1000 MAX. STALLS, TEST 11 





1 
312 ,DEFAULT OPERATING PARAMETER VALUES 
1 776 PROFLT 
3614 . WORD : FC DEFAULT 
318 1 WORD 1 ; IC DEFAULT 
1 0 :FT DEFAULT 
Sunes tee ‘tt Beat 
Nf “WORD f : FAULT 
362 WORD 23 ;51 DEFAULT 
- WORD o. ;S2 Dera T 
3E53 “HO RB 1 fe FAULT 
3625 WORD O :PT DEFAULT 
3668 [WORD RWBUF *LOW MA (0-15) DEFAULT 
WORD O :HIGH MA (16-21) DEFAULT 
os ioe es Berar 
3630 WORD O ic? OEE AULT 
3631 WORD 1000 :SM DEFAULT 
36. 
eh 
3035 AOPERATING PARAMETER VALUE LOW AND HIGH LIMITS 
3e39 .WORD O ;FC LIMITS 
3638 ‘WORD O 
3639 -WORD O ;LC LIMITS 
3640 ‘WORD O 
41 ‘WORD 1 ;IC LIMITS 
364 WORD O 
3e4 : WO 0 ;FT LIMITS 
44 WO é 
3645 ‘WORD O ;LT LIMITS 
3646 WORD 2 
3647 . WOR’ 1 ;IT LIMITS 
364 “WOR e 
4 "WORD ;SO0 LIMITS 
3650 -WORD 23 
365 .WORD OQ ;S1 LIMITS 
36 WOR 63 
WOR ;S2 LIMITS 
3654 WORD 25 
3655 WORD O ;S3 LIMITS 
365 WORD 25 
365 WORD 1 ;IS LIMITS 





a a ——— 


TC5 





CZR6MD0 RK611/06 SS VERT MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 7 SEQ 0352 
CZREMD.P11 10-JAN-78 48 PROGRAM SPECIFIC RESERVED LOCATIONS SEQ 0073 
3658 006114 oOD0025 .WORD 25 
5 1 099000 “WORD O ;PT LIMITS 
1 “WORD 172777 
1 4 - WORD RWBUF ;MA LOWER LIMIT 
1 1 7776 MAHILM: :WORD 157776 ;MA UPPER LIMIT 
3664 1 "WORD 77 
i * WORD — ;WC LIMITS 
368 1 ba0000 ‘wORD OO ;CS LIMITS 
149 000070 "wORD 000070 
36 0061 - WORD 0 ;ST LIMITS 
144 1777 "WORD 177777 
3671 006146 000000 "WORD O ;SM LIMITS 
367 006150 177777 "WORD 177777 
3674 
3675 
3678 ; sASCIT PARAMETER MNEMONICS 
3678 125 041506 -ASCII /FC/ 
3679 B154 O41514 “ASCII /LG/ 
3680 51 S11 "ASCII 7IC7 
1 106 “ASCII /ET/ 
I 114 "ASCII /LT7 
5164 OSell1 "ASCII /IT/ 
1 123 "ASCII /S0/ 
1 3 “ASCII 7517 
17 lle "ASCII 7527 
174 Balacs -Baktt /$3/ 
LoL "ASCII 157 
0521 ‘ASCII = /PT/ 
3690 0515S "ASCII /MAs 
369 "WORD. O ; TABLE FILLER FOR MA 
36 041527 "ASCII /WC/ 
36 10 051503 "ASCII 7CS/ 
3694 006212 052123 "ASCII /ST/ 
3695 006214 O46523 "ASCII /SM7 
3696 
3697 
3698 
3699 ;DATA PATTERN 00 
3700 HI-LO FREQ. MIX 
350 BOeSiE 177777 patoo: 177777 
3508 006220 177777 177777 
3704 O06ece 77 2777 
37 D0E gs OS2525 
3707 DOE 252 pesese 
3708 poe Sse 177777 177777 
37) Roose! 177777 
3517 pesese 
3712 ppeSuS 177777 177777 
3713 O06244 oS2eses 


CZREMDO RK611/06 SS VERIF 1 MACY11 gg EY 10-JAN-78 12:16 PAGE 75 SEQ 0353 


CZR6MD.P11 10-JAN-78 11:48 PROGRAM SPECIFIC RESERVED LOCATIONS SEQ 0074 
3714 O0624%% 177252 177252 
aig eee ieeree ise 

518 poesed 17276 172765 
3718 
3719 
3720 
Ze ;DATA PATTERN O1 
7 HI FREQ. PHASE MIX 
723 batoi: 
7 oo00000 000 
7 00 0000 
7 000 
7 4 177777 177777 
3768 177777 177777 
37, 177777 177777 
37 000 
3 000000 
5 1555 155959 
tec ee 
3333 a boo 





3738 312 o00000 000900 
3739 poesia 177777 000009 

3740 
3741 
374, 
374 ;DATA PATTERN O2 

3744 LO FREQ. PHASE MIX 
37s - batoe2: aeneut 

3548 pesegs 052525 
3748 052525 

74 1 12 
ee | | 

052525 

3753 2 
3754 1 1 
38 125252 
3 125252 

758 052525 
3759 125252 125252 
3760 525 052525 
376 125252 125252 
376. 

3764 

3765 ;DATA PATTERN 03 

3766 MAX. PRECOMP. PHASE MIX 

767 006356 bato3: 

3768 006356 133333 133333 


3769 006360 066666 O&66666 


ee 


5 ety RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 76 SEQ 0354 


ZR6MD.P11 10-JAN-78 11:48 PROGRAM SPECIFIC RESERVED LOCATIONS SEQ 0075 
[gece jeeeee 
A 333 133333 
i ss 155555 
1 13333 
1333 13333 
1 13333 
133333 133333 
133333 
133333 133333 


;DATA PATTERN O4 
: ROTATING BOUNDARY PULSE PRECOMP. 





16 PaTOY: 
16 121105 121105 
006420 peduse 150442 
O06 se see) 064221 
3211 132110 
3734 4 so44 O055044 
795 4 422 026422 
736 4 013211 o1seit 
Reese oueeue ouzeu2 


-_ 
rr 
pat 

4 
P 
_ 
oOo 
£ 
<= 
tu 
io 


;DATA PATTERN 05 
: RO 


381 ATING CELL PULSE PRECOMP. 
3811 OO64S6 PaTos: 
38i¢ 006 026455 455 
3813 006 13226 113226 
3814 O06 S13 045513 
3815S 464 122645 122645 
3816 OO64E5 151322 151322 
381 479 064551 064551 
381 4 32264 132264 
38 74 pize 055132 
4 4 026455 
382 ii 3ee6 113226 
Te2ede Os3eue 
3824 006506 151322 151322 
3825 006510 O64S5S1 064551 


| 
nae | 
Teece 


on 


5 tet we SS VERIF 1 MACY11 30A‘ 1052) 
c Pil 48 PROGRAM 


10-JAN-78 11: 


Boesis | b88i32 


batos: 





LEER ea bs boomed 


batoz: 


® 
2 
: 
& 


pecs ka a 


Z 
me 
: 


gees 
Nas 


wean 


batos: 


B30 


38 
3881 006630 000040 


10-JAN-78 12:16 PAGE 7 
SPECIFIC RESERVED LOCATIONS 


as6i32 


;DATA PATTERN O6 
L ZEROS 


500000 
00 


177777 
177777 


;DATA PATTCAN 


000040 


;DATA PATTERN 07 
ALL ONES 


B° 1 IN FIELD OF ZEROS 


SEQ 0355 
SEG 0076 


an 





CZR6MD0 RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 78 SEQ 0356 





CZR6MD.P11 10-JAN-78 11:48 PROGRAM SPECIFIC RESERVED LOCATIONS SEQ 0077 
006632 100 000100 
3885 006634 eae 000200 
900400 
a 
te 
3888 0066% 010000 010000 
3889 pores 020000 020000 
e ;DATA PATTERN 09 
3896 SHIFTED O IN FIELD OF ONES 
3897 batos: 12772 
333 aaa aaa: 
a 77767 27767 
Leese zope? 
77737 177737 
1776 177677 
3905 177577 177577 
177377 177377 
176777 176777 
123227 e007 
977 93777 
1 167777 167777 
3311 157777 157777 
13 33557 335555 
1s 
i 
1 ;DATA PATTERN 10 
18 ALTERNATING 0-1 
3919 batio: 


716 
7 


5 
es 


PeOER CREE Mees 
adadadaeacs 
ESSRORSR 
raat 
ttt 


. 
¢ 
e 


Cl  EwEaEeEe—eeE_eeeeeeeeeeeeeeeeeeeeee eS... 


CZR6MD0_RK611/06 SS VERIF 1 


CZR6MO.P11 


SUL sES EES EE 


pir SERCRPRERR cs cosaca 


0 
Ww 
8 
“Ni 
Oo 


whet 4 
3% 
WISeEE 


WW 
Ow 
N 
oO 








10-JAN-78 11:48 


MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 79 
PROGRAM SPECIFIC RESERVED LOCATIONS 


;DATA PATTERN 11 
: ALTERNATING 1-0 
Patil: 


te 
Hi 


a 
furu 


sai 
rorororurorure 


uuu 


Dae bs ete tn se ee fe pe be 
un 


;DATA PATTERN le 
barie: SHIFTING ZEROS AND ONES 


;DATA PATTERN 13 
bari3: COMPOSITE ROTATING 


107351 





SEQ 0357 
SEQ 0078 


CZR6MD0_RK611/06 SS VERIF 1 


CZR6MD.P11 


71 
ae 
ioe Beet 
wens Bortis 
4003 
4004 
4005 
400? 007116 
4008 eae 
4003 0071 
4010 lee 
4011 71 
4012 1 
4013 1 
4014 71 
4015 71 
Bis ert 

1 1 
gis 14 
3 144 

1 

mA 

71 

007154 


Be oe 4 
5555 
N 

Pee ee bs be he bbe he pe 
o 
£ 


CRRe 
8 
BS 


ain 
a 
38 


10-JAN-78 11:48 





072307 
143 
461 


BREEPR aE 
~—WNO Gru 
SERRE 
AVEO LO, 


j 


CTWWN 


2 
FeOMw 
KUNG 


a 
our 


PBR 
Bey 


MACY11 a SN 10-JAN-78 12:16 PAGE 


BO? 


80 


GRAM SPECIFIC RESERVED LOCATIONS 


ee O- OO 
unt oO’ .£ 
Fon RATE 

CUWNO US 


DATA PATTERN 14 
PSEUDO-RANDOM (COMPUTED 


PATIY: 


ED -OSF INED CATA PATTERN 1S 


PaATIS 


BY PROGRAM) 


= 

3 

Lo] o 
VORLOW-ONERLOVHS 





SPEC’D MIN ROT. LATENCY 
SPEC’D MIN ROT. LATENCY 
SPEC’D MAX ROT. LATENCY 





SEQ 0358 
SE@ 0079 


C 
GSRenD Pil t0- FAN-78 11: 1:48 erie SPROGRAN SPECIPIC Ic “REseAVED Loca one sE0 Pe Goao 


4050 ooo000 MAXHT 120 sHI BITS OF SPEC’D MAX ROT. LATENCY 
spas fa pergpeoce inf BIE OF SEEE-B DEX f Sit SEEK TINE 
4053 007216 oD0000 MAXLO2: .WORD 0 ;LOAD FROM NEW DRIVE ROUT INE 
dose [C7220 Ore RAxLo3=16 " thet TOE MBN AVG SEEK TIME 
4056 $3=0 3H 118 OF ‘BMAX AVG SEEK TINE 
D 410 CYL SEEK 
’ 410 CYL SEEK 
= Spr ae1OP800 seers ABB? 
soe Bosobe Para =s SLE ota =245(10) 
406s o00002 BSERR=BIT1 
ses i ieetta pa 
4068 000020 be RR=B1T4 A CHECK ERROR 
do80 600100 HEERR=BTTE EAP Cee Ena 
uo72 popqoe Vv eRe if i PEVE VEL TWO ERROR 
i Hie AB Hee 
4075 904000 RCLREQ=B1T11 i RECAL TBRATE REQUIRED opt 
1072 i PRYDE R=BETTE RNY ERROR Reteo BY 0 LAG 
4079 005015 055103 033122 DZR6M: .ASCIZ abi emwes 


XXDPMG: .ASCII <CR><LF>/CHANGE XXDP PACK/ 


-ASCIZ <CR><LF>/CLEAR LOC 40,RESTART PROGRAM/ 


SUBVER: .ASCIZ 8&8 - RK611/RKO6-RKO7 SUBSYSTEM VERIFICATION : PART & 


sesRSB CRE BREESS 


3 


Serer 





PARTI: a3 | fA) edi 

PARTe: .ASC 42/¢15><¢12> 
W102 5 LSTMEM: .ASCI 415><12><12>7LAST PHYS MEM ADR = / 
dios 434 eer pAb ioe 020075 
4105 007442 000 


: 
ste, Fea eatoe ig Ets © Srees8 fee is Got SEB TIE 
tes BRFRER Ray: “WR 8 LAB FT tie eae uals 


CZR6MD0 RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 82 SEG 036 
CZREMD.P11 10-JAN-78 11:48 PROGRAM SPECIFIC RESERVED LOCATIONS Ss 6081 


O42S26 mel es OVLODR: .ASCIZ /OVERLAY LOADER ? (Y OR N) # 7 


l22 020077 
020122 


40 
ae PRMINP: .ASCIZ <¢<15><12>/PARAM INPUT MODE7<15><12><12> 


F 





SLELLELL£ 
~ 


De ae a ae ae ae ae ee ae ae ae be bee Be bn De ae Be ae ne Be De an bn eae an eae ae be an me fe Pe ee Pn pe Pe ae bn be ee be Bs bn b= bee ee 
u 
* 


RKBADR: .ASCIZ /RKO6-07 BUS ADR 


RKVADR: .ASCIZ /RKO6-07 VEC ADR 


RKPRTY: .ASCIZ /RKO6-07 PRIOR =/ 


SWRMSG: .ASCIZ /SWR = / 

NEWMSG: .ASCIZ 7/7 NEW = / 
DRVSEQ@: .ASCIZ <15><1l2>/DRV(S) = / 
BADDRV: .ASCIZ /DRIVE 7 
NXDRIV: .ASCIZ /NON-EXIST/<15><12> 


NTREDY: .ASCIZ /NOT RDY/<15><12> 
WRTLOK: .ASCIZ /WRT-LOCK/<15><12> 
ALNPAK: .ASCIZ /LOADED WITH ALIGN PACK/<15><1le2> 


REPLPK: .ASCIZ /IF XXDP PACK ON DRV O, TYPE “Y <CR>", & REPLACE IT: / 


4 
eo bes oe 
16 020040 
61 041501 
1 


035040 
Oeaize NODRTS: .ASCII <15><12><12>7#* NO DRVS TO TEST/<15>< 12> 


4 2 
71 20 O4eSee 051523 
76 04 6 


DIONE LOV- ODDIE LOO BOVE La Se VO LO OOO NON Fon OSS 


O0OGCO00000000 


apeq easy apes etatayesy ayant at 


SESCESCELCSCS SSCS SSC SCE SES ESSC ES ES ECS ESSEC SESE SES SES SLES LCSL 


CNTRDY: .ASCIZ /PRESS “CONT” WHEN RDY/<15>< 12> 


o 
— 


u 
“ 


ee 






SBIR 








07 


70 = OPEN PARAM LIST/<15>< 12> 


“7S = SET INDIVIDUAL PARAM/<15>< 12> 


CZR6MDO0_RK611/06 SS VERIF 1 MACY11 30A(10S52) 10-JAN-78 12:16 PAGE 83 SEQ 0361 
CZR&MO.P11 10-JAN-78 11:48 PROGRAM SPECIFIC RESERVED LOCATIONS SEQ Oose 
4162 010104 O200 4127 047105 
uie4 010120 oc anette 
W165 101 Ley HLTRQD: .ASCIZ /HALT REQ/<15><12> 
' ' 
18? 101 Be 1104 : DROXOP: .ASCIZ /DRV O IS LOAD MEDIUM/<15><12> 
' | PS 
ui63 ipise Bod 
7 ' - 
si78 101 7524 ALDRVS: .ASCIZ <15><12><12>/TO TEST ALL DRVS TYPE “A” <CR>, ELSE <CR>/<15><12>7% / 
a | 
4173 O1C p 104 
4174 O1C OE 131 
site BiBei5 
|] 
472 i e103 i2 
‘— > 
i173 1024 DOCO4C 
wie i 05018 75 TSTMDS: .ASCII <15><12>/L = LIST TESTS/<15><12> 
' 
41 10; OS 1S0¢ 
ie 19% 02010: 1 -ASCII /C = CHANGE TESTS/<15><12> 
' ' 
41 1 0S 1505 1 
4186 91 020 7 .ASCIZ 7/1 = INPUT PARAMS, RUN TESTS/<15><12> 
4187 Ol 052520 
4188 1 DHOSe¢ 4 
{183 1 DS2See 
41 1 Hse 12 
i132 i 5501 De ° ENTLCI: .ASCIZ <15><12>/ENTER L,C, OR 17¢15><12>7% / 
41 1 aa 511 
134 1 250 
i i D475 105 DFTEST: .ASCIZ /TO DEFAULT TESTS TYPE D <CR>, ELSE <CR>/<15><12>7% / 
| t 
1g? Blow) OSi80% 
1 1 0501 104 
ts Be Ean fee 
1 : 051103 1 
eenue ' 
505 1 605015 123 TLSTHD: .ASCIZ <15><12>/TEST ITERATIONS/<15><12> 
t De0040 Onis) 
1 : 7 1 
505015 EXPLAN: .ASCII <15><12>/T = TYPE PARAM LIST/<15><12> 
1 
1 
1 
1 
i 
1 
1 
1 


SEECCESCLCSCSCLCSCLCOCSCSSCSCLSSCSCLSOCSC£ 


4 951101 
1 S151 1 
ale 4 buoe20 -ASCII 
sig $6 ; 4S14 
21s oss4 1 O42eS23 -ASCII 
2el6 010562 bisa 044S04 
217 010570 o44S2e6 046101 


CZR6MD0 RK611/06 SS VERIF 1 MACY11 30A( 1052) 







07 


10-JAN-78 12:16 PAGE 84 


CZREMD.P11 10-JAN-78 11:48 PROGRAM SPECIFIC RESERVED LOCATIONS 
at 046501 
42 oS2esS22 -ASCIZ /R = RUN TESTS/<15><12> 
ee 0S21e3 
: PARMDE: .ASCIZ <15><12>/ENTER T,0,S, OR R/7<15>< 12> 
1238 
. DUACES: .ASCIZ <15><12>7% DUAL-PORT DATA TEST #7<15><12> 
1233 
: 
7 30 MAWRDC: .ASCIZ /MAX WORD CT = / 
4234 
: 35 SECNL1: .ASCII 7##% SO>SI1/ 
* ci NOTALD: .ASCIZ / NOT ALLOWED/<15><1l2> 
ue40 
s. SECNL2: .ASCIZ /7#* S2>S3/ 
ise TRKNLW: .ASCIZ /7%* FT>LT/ 
mY WC2EBIG: .ASCIZ /7#% WC OR MA TOO LARGE’<15><1l2> 
4e4e 
ine 
~ DFQUES: .ASCIZ /TO DEFAULT ALL PARAMS, TYPE D <CR>, ELSE <CR>/<15><12>7% / 
4 
y 
4 
: 
y 
4 
425 
s- 5 PFIFTN: .ASCIZ <15><12>/USER-DEF PATT 15 :7<15><1l2> 
-. 
-- SELP1S: .ASCIZ <15><12>/MOD PATT 15 :7<15><12> 
asec 
- 4) MOFY1S: .ASCIZ /TO MOD PATT 15, TYPE M <CR>, ELSE <CR>7<15><12>7% 7 
uee9 
580 
427 
427, 





SEQ 0362 
SEQ 0083 


CZR6MDO_RK611/06 SS VERIF 1 MACY11 30A(10S2) PAGE 8S 
rt PROGRAM SPECIFIC RESERVED LOCATIONS 


<15><12>/ENTER NO. OF PASSES (1-77777) :7¢15><12>/# 7 


CZR6MD.P11 10-JAN-78 11:48 


Tin 


Ges 
pan 
aS 

Le 

no 


an 


11 


7 02605 ENTPAS: 
39 


GO? 


10-JAN-78 12:16 


-ASCIZ 


1 
1 
4, 11 
4 11 
| 11 
4 4 
dee 131 : 9 DROPDR: .ASCIZ 
| } 753 
4 11 
4285 O11 1 051522 
4286 O11 1 
4 11351 0 le TSTORN: .ASCII 
| 4 11 1 1 107 
; 4 11364 11 
| 4 11 440 DRVNO: .ASCI 
4 11 1104 1 000 ORIV: .ASCI 
3 it 1101 027124 CART: .ASCIZ 
| 1141 027122 O47040 SERNM: .ASCIZ 
4295 011416 027117 Oe0040 ooo 
4 1133 5 Baden) FACTBS: .ASCIZ 
| 4 ty at 2 ee SOFTBS: .ASCII 
4 11444 1101 105 
4300 O114S0 104 2523 BDSECT: .ASCIZ 
4 11456 1 17 123 
4 11464 4 1 
4 114 16 O42516 NOFALS: .ASCIZ 
4 114 000 
4305 
4 Ob -MESSAGES USED 
4 11477 g20052 ou pug NOCLKS: .ASCII 
daee Oiler SSOLtg Owi0s ois) 
4310 11215 O2005S OS2040 TIMSKP: .ASCIZ 
4311 011520 o46511 Zit 020107 
4 1g 11 12 iea 
431 11 4 
4314 O11 48 414 
4315 O11 
4316 011556 053513 CLKFAL: .ASCIZ 
431 it 4 1 
4318 1 14 
431 il 5 101e OS2117 ROTIMS: .ASCIZ 
4320 11604 1 O° 1509 
132 11619 1 p43 AVGSEK: .ASCIZ 
432. 11 051 113 
4324 011632 042515 020123 
Wa5e Blibay peed pa7it? ONECYL: .ASCIZ 
435? Bliees pes 114 Basses 
4328 O11660 oO4S5505 2040 O46511 
4329 O11666 OS1SOS O35040 oos01S 
| 
| 


<15><12>7%% DROPPING DRV - 20 ERRORS/<1S><12> 


€15><12><12>/TESTING DRV / 


4 7615>412> 

ZORV / 

SCART. 7 

“SER. NO. 7 
415><12>/FACTORY 7 
<12>/SOFTWARE / 

/BAD SECTORS :7<15><12> 


7 WNONE/ 


IN TIMING TESTS 
7%% NO CLOCK/ 


4 - TIMING TESTS WILL BE SKIPPED/<15><1le> 


/**% KW11 FAILURE/ 
<€15><12>/ROT TIMES :7<15><1l2> 


<15><12>/AVG SEEK TIMES :7<15><1le2> 


€15><12>/0NE CYL SEEK TIMES :7<15><12> 


SES 0363 
SEQ 0084 


CZR6M00 RK611/06 SS VERIF 1 
10-JAN-78 11:48 


CZR6M0.P11 


ee bb 


TRIRTESRER ORGS 


£ 


uid 


ee ee bb bb 


i 
Pas 


=thtet 


ee ee ed eg eres 


SSE CE aN: 


BS 


sie 


A) 
_ 


frurororu! 
Rr 


=i: 


_ 
[=] 
im 


8 
~ 
o 

















046412 


MACY11 30A(10S2) 


MAXSEK: 


FORWRD: 
REVRSE : 


MINEQ: 
MAXEQ: 
AVGEQ: 


ABOVE 1: 


ABOVES3: 


SPCDMX: 


10-JAN-78 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASC1Z 
-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCITI 


-ASCIZ 


-ASCIT 


-ASCIZ 


-ASCIZ 


12:16 PAGE 86 
PROGRAM SPECIFIC RESERVED LOCATIONS 


07 


«15><12>/MAX SEEK TIMES :7<15><1e2> 


/**FWD DIR##/<15><12> 


/**REV DIR##7<15><12> 


/MIN 
/MAX 
/AVG 


/ 


7 US/ 
/ OF 128 BELOW SPEC’D MIN OF / 


/ OF 128 ABOVE SPEC’D MAX OF / 


4 OF 410 (814 FOR RKO7) ABOVE SPEC’D MAX OF 8000 US/ 


7 (6S500-RKO7) 7<CR><LF> 


/ OF 128 ABOVE SPEC’D MAX OF 75000 US/ 


4(71000-RKO7) 7<CR><LF> 


“  SPEC’D MAX IS 38000(36S500-RKO7) US’<15>< 12> 


SEQ 0364 
SEQ 008s 


me 
Ree ee PEPE P PPP EP YEP YIN Sa 
NUI 


ROO eee 


O0000 DBOOKOOOOOO0000000000 


Ntone 2Zon— 


rm 
wn 
rm 
ru 


= eee Seeeeee 
th Chu GNUnUnUIUIOy 


2 nse LER 


012602 


PERSE TERS 


112737 
105037 


012737 


012706 


001100 


MACY11 30A( 1052) 
PROGRAM 


oooo4e 
oooo4e 


003136 
003116 


003116 


177776 


LIM1: 
LIM2:  .ASCIZ 
BAD632: .ASCIZ 
CNTRLC: -BSCIZ 
CNTRLZ: .ASCI 
CNTRLR: -BSCIE 
CNTRLU: .ASCI 
CNTRLG: .ASC 
CReLF : “BSct2 
BKSLSH: .ASC 
COMMA: -BSCIZ 
6: .ASCI 
SPACEY: -BoCl 
SPAC: 3: [ASC 
: .ASCI 
1: .ASCI 
"EVEN 
PRMBUF : “ABET 
POURCS: *ASCI 
PROMPT: -ASCIZ 
PRMPSP: ‘[ASCI 
. EVEN 
DFSTRT: CLRB 
CLRB 
CLRB 
CMP 
BNE 
MOV 
4S: BR 
DASTRT: MOVB 
MOVB 
PSTART: MOVB 
CLRB 
CMSTRT: 
- SBTTL 
;;CLEAR THE COMM 
MOV 


107 


10-JAN-78 12:16 PAGE 87 
SPECIFIC RESERVED LOCATIONS 


-ASCIZ 724375 US/<15><1le> 


72562S US/<15><12> 


7%% CANNOT READ BAD SECTOR TRACK! 7<15><12> 


“ 
7 


SS5S5 SWAN 


MOF LAG 
DULACS 


ERRCNT 

#ORVTST, a#42 

aNEWPAS, D842 
CMSTR 
#1,DULACS 
#1°MDFLAG 

on MSTRT 


#1,MDFLAG 
pULACS 


#PS 
INITIALIZE Etec OMMON TAGS 
BAGS. (SCMTAG) AREA 


BSCNTA 


SET FLAG FOR DEFAULT MODE 

CLEAR DUAL-ACCESS FLAG 

: RROR COUNT FOR RESTARTS 
URN ADRS = DRVTST 

* PROCEED 

;SET FLAG FOR DUAL-ACCESS DATA TEST 

BES FLAG FOR PARAMETER MODE 

;SET FLAG FOR PARAMETER MODE 

CLEAR DUAL-ACCESS TEST FLAG 


;BLOCK ALL INTERRUPTS 


;;FIRST LOCATION TO BE CLEARED 


SEQ 0365 
SEQ 0086 





R. IF IT Is 

Tebec SuOfts Rt! 
a PR 

;SET FOR SWICH REGISTER 


CZR6MD0 RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 88 SEQ 0366 
CZR6MD.P11 10-JAN-78 11:48 INITIALIZE THE COMMON TAGS SEQ 0087 
444° 012620 005026 CLR (R6)+ ;;CLEAR MEMORY LOCATION 
qa bles Boiss rene SNE  eliapticisaoinet qpen BACK IF NO 
4445 Ol 12706 001100 MOV #STACK SP ::SETUP THE STACK POINTER 
4g ;; INITIALIZE A FEW VECT 
a ot 3 1 z oss1S4 MOV 4 i}0r CTOR FOR SCOPE ROUTINE 
“4 1 te? jEHT. VECTOR FOR ERROR ROUTINE 
44 OL 4 #FTBR vecTor FOR TRAP CALLS 
44 1 187 ;POWER FAILURE VECTOR 
4454 O1 127 (EVEL 7 
44 12714 7 TUF -OF -PROGRAM COUNTER 
1456 1872 061304 N I R OF ITERATIONS 
wee Gleae Treva? pousel au Sue Eneone oft free" POsES® 
44 137 18730 1 INT aLize THE LOOP SS FOR SCOPE 
a6 12746 0127 Bi Soue aly ERROR LOOP 
yu 
4463 012754 013 
wes Gigreo Bigar O130rs 
W466 g1e774 012737 177870 5 BND fol REFERER ISPLAY REGISTER 
ie8 Bi 1 ae " ; BRANCH RO TIMEOUT he Rap nOGCURRED 
44 013012 oo0403 BR 65$ >: BRANCH F NO TIMEOUT i 
nat 013044 7 013022 64S: nov #65S, (SP) ::SET UP FOR TRAP RETURN 
az3 01 308e B15737 900176 001149 65S: nov aSHREG SHR spray? #POINT TO SOFTWARE SWR 
78 Bt 303? 12637 Bepd04 66S: MOV a TSPREG.B EC ;;RESTORE ERROR VECTOR 
44 13042 CLR SPASS ::CLEAR PASS COUNT 
tire Glee freee SOHRRE oor: = tte pep Fsnzes sem 117 ue alae MOT OPT 
ago Bi 3068 012737 001342 001140 a MOV #SSWREG, SWR ::NO,USE APT SWITCH REGISTER 
44 1 OEM , RESET ;CLEAR_THE UNIBUS 
44 013066 000004 nOy 86, D¥ERRVEC :SET TIME-OUT VECTOR 
44 44 MOV #100. . SERMAX ;SET MAX ERROR CNT TO 100 FOR SSCOPE 
136 013108 i 7 003130 veanhen CORB BAVERS 'CLEAR ERROR COUNT FOR CURRENT DRIVE 
448 1 112 1127 1 003146 MOVB #1, HLPOVL :SET HLP FILE OVLD INDICT 
wee eH 104401 07226 TYPE . OcREM : TYPE PROGRAM I.D. FOR PART 1 
ee 
4y Bt 184 G44} Tite TYP * PARTI 
431 013134 10573/ 003147 TSTB NOTYPE ; SEE IF, OPERATOR NOTE SHOULD BE TYPED 
uuga Bisive fpeea> Bearer Inch -AOTYPES 5 EIDE ODEROTOR NOTE ne 
ai35 O1315¢ 105737 003136 39S: ToT8 DULACS ;SEE IF QUAL-ACCESS DATA TEST 
4497 013160 104401 O10654 TYPE , DUACES :TYPE "% DUAL-ACCESS DATA TEST *" 





CZR6MD0 RKG11/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 89 SEQ 0367 
CZR6M0.P11 10-JAN-78 11:48 INITIALIZE THE COMMON TAGS SEQ O08s 
4498 013164 91 00 OO00E0 40S: MOV #KBDHOL aaTKVEC ;LOAD VECTOR FOR TTY KBD 
os 1 127 000062 MOV #PRY aSTKVEC+e SET KBD PRIORITY = 4 
4 1 13701 MOV Revee R1 j BOOR, OF RKO& VECTOR STORAGE 
45 1 12721 MOV SI.INTR,(R1)+ ; T TO RKOb ER 
4 13210 O1 MOV RKPRI, (R1) ;SET PRI ITY 
13214 O1 16 oo0250 MOV SKTERHD, JHMMVEC ;VECT FOR KT11 FAILURE 
4 1 40 o00ese MOV 8PR7,OBMMVEC+e ;SET PRIOR. = 7 FOR 
4 1 ‘ 31 sem, CLRB TSTING ; CLEAR RUNNING esto” FLAG 
4 i 12701 MOV Hae ven 1 ORO OUT PREVI COMMEND 
4508 Ol 000006 MOV wb RO jSET COUNT R 
4 1 42S: cLR (R1)+ ; A NORD 
4200 1 Cc RO 
B12 i 51 ene eFALLs ‘Don't MTOM StALES YET 
451 13264 37 anes 017014 CMP #42, BNEWPAS >SEE IF IN MODE 
4514 013272 101 BHI s ;BR IF YES 
4515 013274 026370 JSR PC, GTSWRG ?OPEN SOFTWARE SWR FOR MODIFICATION 
ue1g 913300 b12737 176543 052716 44g: nov #126543, SHINUM ? INIT. PSEUDO-RANDOM NOS. 
4518 — — ;CHECK FOR PRESENG KidIi-L OR P CLOCK, AND SET FLAGS 
4519 013314 105037 00 132 CLRB PCLKE ;INIT. P’ CLOCK FLAG 
deed 1 h CLRB  DOTIM j ANE T NING TESTS F 
4521 Ol 1 13364 000004 MOV 86S, 384 : i - 
ieee 1 14 TST apks : SEE of ru PRESENT 
1 132 INCB LKF ; NT 
ded 1 i 003162 MOV PCVEC He KWL 1-P VE ADDRESS 
1 1 032664 4S: MOV #CLOCK, (RO)+ : OF Sree Ice AR TINE 
qess i Best a9 ACB sere (AO? SET Ft T ett Tests 
ie ft ee re Eg re 
1530 1 013406 oo0004 MOV i3s ak4 >SET T Ne out SECTOR 
i Ol 167550 TST alk ?SEE IF L-CLK 
ass : 003160 nov LCVEC, RO ; ofS VECTOR R Ss 
ue 1 7$: CMP (SP)+, (SP)+ +L-CLK NOT The RE THE STACK 
4535 013410 1044 011477 | PE NOCLKS : SAY TIMING TESTS WON’T BE RUN 
4536 134 4 o167 gg0006 oo00004 8s: MoV be, 84 : a T Me OUT CTOR TO LOCATION 6 
1 ? 6072 JSR PC’ SIZMEM ; £ MEMORY, FIX MA LIMIT IN PRMLIM 
4538 0134 105737 003135 TSTB © XDPSVD : IF XXDP PREVIOUSLY SAVED 
4539 Ot 25 1404 BEQ 9$ ;BR IF 
4540 O1 737 027262 ISR PC, GETXDP ?RES SAVED XXDP 
aoa) o1 105037 003135 ad CLRB XDPSVD ? CLEAR 
4543 013444 122737 000013 o00041 CMPB #13, 9841 LOAD FROM XxDP ? 
weus Gi 1003 BNE i BRANCH IF NOT 
454S 013454 104401 007240 YPE , XXDPMG 
ueue o1 000000 me HALT 
454 1 737 003116 . TSTB MDFLAG E IF DEF MODE 
454 ol aie 31 BNE 10 Be i NOF BEFAULS 
4550 0134 0137: 001370 MOV $VECT1,RO :GET APT RKOS VECTOR OO fio PRTY 
mat 013474 013737 001374 003036 MOV SBASE , RKBAS Ger APT RK kOe BASE ADDRESS 
45 01 1327 000200 1341 BITB #BI1T7, SENVM SEE IF NO SIZING 
4553 013510 001005 BNE 18$ :BR IF NO SIZING 


a ne 


ee 
4 
4 


i 
1 
30 


SRSSRRERMRSERMRONG Saks SIRE 


a8 
tu 


EfRenD-PLl 10-JAN-? 


RIF 1 
8 11:48 


ea 003036 
003041 


003126 
013732 
014522 


MACY11 


oooo04e 


AC 10S2) 19-JAN-78 
NITIALIZE THE COMMON 
v Tl 
MOV SASBSE akBas 
18$: MOVB Ht GoRRVEC 
CLRB RKVEC+1 
SHAR RO 
IC #177437, RO 
MOV RO, RKPRI 
IMP ALLORV 


los: TYPE 
; OPEN RKOG UNI ss FOR MODIFICATION 
Rov BUF BAS = CEP oa 
JSR peta 
; OPEN RKOL VECTOR An ESE For 
mov riveted 3p 
TYPE 
HOV pe Ge TERN + RRVEC. 
-OPEN RKO6 INTERRUPT 
1is: MOV RKPRI,-(SP) 
ASL (SP) 
ASL (SP) 
She (a) 
#08 KPRTY 
JSR PC. GETPRM 
MOV (SP)+,RO 
CMP RO, #4 
BLT ies 
CMP 47 
BGT 12$ 
SWAB =SssRO 
ASR R 
ASR R 
ASR RO 
MOV RO, RKPRI 
TYPE Sener 
12S: BF BoFFO 
TYP SQUES 
BR lis 
CLRB = ERRCNT 
MOV #ORVTST, ae42 
IMP CHKLST 


;BEGIN PARAMETER Pha aid MODE 


tee 07. 30 SEQ 0368 


ni CATION 


SEQ 0089 


:GET DEFAULT VECTOR AND PRIORITY 
GET BEE AULT th — ADDRESS 

j STORE VECTOR 

ice aoe ONTD TS S-7 

teen" 0 He fe 

: STORE RKOE PRIORITY 

:GO CHECK ALL DRIVES 


; TYPE “PARAMETER INPUT MODE” 


Bie 7 ON STACK 
or 4 “eH RKBAS VALUE 
cb, 


VALUE ON STACK 
TYPE on T pen RKVEC VALUE 


ER PRIORITY LEVEL. FOR MODIFICATION 


;GET IT INTO BITS 0-2 


;TYPE “RKOG PRIORITY = ™ 
;TYPE OLD, GET NEW RKPRI VALUE 


; SEE Ad LEAST LeveL 
eect F NEEVEL 7 D7 oR L LE gat 


TOO LARGE 
GET TPRIORITY INTO BITS S-7 


;STORE NEW VALUE 


;ECHO BAD INPUT 
;GO ASK AGAIN 


; CLEAR ERROR CNT FOR RESTART 
;SET UP DUMP pOoe Re TaN FROM TES” 

UPON ION OF REQUES 4 PASSES 
G0 CHECK STATUS OF MARKED DRIVES 


5p RRR RAKE A REAR AREER EH E ARR ELE RARE ERK E REL RELRELE EE 


or 


———_ 


EE 


CZR6MD00 RK611/06 SS VERIF 1 MACY11 30A(1052) 10-JAN-78 12:16 PAGE 91 SEQ 0369 


CZR6MD.P11 10-JAN-78 11:48 TO - DESIRED DRIVE INPUT ROUTINE SEQ 0090 
461 .SBTTL TO - IRE: VE INPUT ROUTINE 
a Mth ROUTINES siRES one CURRENT LIST OF ORIVES TO TEST, 
4 1g 3 *#CHO Pore of YES. FD as ela ANB Tse 
4614 :*#DRIVES ARE CHECKED FOR VALIDITY AND PROPER STATUS 
ae 1g j AND TF ontE Y ARE VALID, THEY ARE LOADED INTO THE DRIVE 
“E18 ; g PoSPCTTSPTTT TTT TTT TTT TTT TT TTT TT TTT TTT ttt tt ttt ttt TTT ti ttttt Sy 
ues 8139 1270 001100 sstesil STACK, SP RESET THE STACK 
Nest 1373 037 goss1¢ CLR sats” ; INHIBIT STALL BETWEEN OPERATIONS 
Wee3 137 04737 030624 5 P » Be RDCARS {READ RE 
wees laren Lares Bev 15) serum eporess 
wees Hae 75 ORVTST . 5 (40) OR ERR : TURN ADDRESS 
1 141 BEQ RP ORV ; iF NULL 1APUt 
4629 013764 022737 OO00101 005272 CMP #’A, BUFFO ;SEE IF ALL DRIVES REQUESTED 
4630 013772 901002 ‘oo BNE 4s BR IF NOT act DRIVES 
13s Bras Bt Bose72 4g: THE "BUPED HECK I 
1 1 1314 TYP Ss :TYPE <?7> AND <CR>,<LF> 
4634 014010 600750 baw t URE al only cist :GO ASK AGAIN 
4B3e 1401 1 007634 TELDRV: TYPE VSEQ ;T “DRIVE(S) = “ 
463 Btapt 1 CLR Ri tINITIALT DRIVE NUMBER 
wees BIGSE BTR7ES oncon, Gov Brroveg dT pf RD ereR™STE? ORTVES 
ues i 1 ‘ i Boeebe 4S: TSTB D re Te ; A THIS DRIVE Is LISTED 
dod BiGes Oberg Bt OR ieee ir einer fine Rene 
44 O14 rt 6 TYPE COMMA A ers A 
45 O14 Oi 54. 6$: MOV R1, SCRACH : H FOR BUFFER 
4646 O14 0 ooss42 BIS #’°0, SCRACH 7C T DRIVE NO. TO ASCII 
4647 O1 ooss4e TYPE SCRACH :T DRIVE NO. 
aie Bites Bisset os if ff LASSEIENT Bag wbZS7e> ORES 
4650 014065 : ASL R3 :SHIFT BIT POINTER — 
46 1 2701 000010 CMP #10,R1 >SEE IF BONE YET 
46 14074 4 BNE 4§ :BR I NQT DONE 
ue 4 1708 1016 F Bes Bee re ven” — a 
4655 014102 104401 011470 TYPE ,NOFALS :TYPE ” - 
wee? 014106 104401 O1004e TYPE *NODRTS TYPE nae ORIVES To TEST. 
ue 014112 012703 oo00401 MOV #401,R3 ? PATTERN MARK DRIVES 
eee Blais Biggs, oSeC® my RaGGy IBAA td ORGS List 
466 141 6183 1 MOV Ra! (AL )4 , 
eee 141 010321 MOV R3,(R1)+ 
466 141 O10311 MOV R3;(R1) 
4664 014132 000137 044134 IMP HL TPRG ;HALT PROGRAM 
4665 014136 104401 001315 26S: TYPE , SCRLF : TYPE <CR>, <LF> 


on 


CZR6MD0 RK611/06 SS VERIF 1 MACY11 S98 ( 10582 


10-JAN-78 12:16 PAGE 92 SEQ 0379 
DESIRED DRIVE INPUT ROUTINE SEQ 


CZR6MD.P11 10-JAN-78 11:48 0091 
141 7 003116 TSTB MOFLAG :SEE IF DEFAULT 
Gee? Bit boioae BNE 20$ ‘BR 1 NOT BEFAULT MODE 
141 0091 015062 IMP LODFLS :GO LOAD DEFLT ITER. COUNTS 
ub tl : 000013 oo00041 20S: cNPS a13,d041 jSEE F neice IS XXDP MEDIUM 
4671 O14164 37 005606 TSTB DRVLST :SEE IF ORIVE O LISTED TO TEST 
uo7e 0141 1427 BEQ 19$ i BR IF NOT 
4o7 0141 1 1 007753 24S: TYPE , REPLPK :TYPE “IF XXDP PACK ON DRV O, TYPE Y <CR> 
74 : aNd REPLACE IT” 
4675 014176 737 030624 ISR PC, ROCHRS ?READ RE 
4676 14e0e 14i7e e4 24) URN 
46 14, 1417 4 ?(¢2) RETURN 
4678 O14 14172 ous ?(#U) RETURN 
46 1421 TST RO i SEE IF NULL I 
46 14el Phe BEQ 19$ 3 IF J <CR> TYPED 
1 014214 7 000131 005272 CMP 8’ Y, BUFFO ;SEE IF “Y <CR>” TYPED 
14222 0013 BNE 24S ; F NOT, TO ASK AGAIN 
iNeed ie 910071 YPE CNTRDY ; rPRESS C T WHEN DRV RDY” 
14 1 ooo000 BIC BIE,RKCSI(R2) 301 NTERRUPT 
468S 014 HALT HALT FOR PACK CHANGE 
4686 14 7522 ISR PC INITSS ?INIT THE -SYS 
468 14 1 14522 IMP CHKLS ;GO CHECK TUS OF LISTED DRIVES 
4ee8 014250 i04401 012514 19S: TYPE PROMPT * TYPE ASTERISK AND SPACE 
sREAD AND CHECK NEW DRIVE NUMBERS 
4630 14254 904737 030624 ISR PC, RDCHRS ;READ IN_INPUT STRING 
1 14e69 0137 DRVTST >(#C) RETURN 
4692 O14 137 RVTST 2(#2) TURN 5 
4693 014264 ELDRV : ( 1) RROR ADDRESS 
4694 O14 ST RO ?SE I NULL NPUT 
4695 014 1 BNE 9S *BR I Wd VES WILL BE SELECTED 
4636 1s 105737 003136 rete DULACS SEE iF SS FLAG SET 
mat 14306 137 014574 JMP ASKTST > JUMP TO THE TEST INPUT ROUTINE 
4699 O14 1 015340 228: IMP INPUTP *GO FOR INPUT PARA 
4700 014310 gee700 000017 9S: CMP #15. ,RO >SEE IF TOO MANY CHARACTERS TYPED 
4 14314 BGE 1 ?BR IF NOT TOO MANY 
47 14316 1 401 005272 10S: TYP , BUFFO 3EC BAD INPUT 
470, 14 1 1 001314 TYP SQUES :TYPE <?> <CR>, <LF> 
4704 O14 BR TEL >GO TYPE DRIVES AND ASK AGAIN 
4705 O14 OL 12S: CLR Ri *CLEAR CHAR. POINTER 
4706 O14 005272 oo00060 14S: CMPB BUFFO(R1), #0 ;SEE F ORI NO. < 9 
4707 O14 BLT 10s ?BR TO E Bab INPU 
47; 14 1 005272 000067 CMPB FO(R1),#°7 ;SEE IF > ? 
47) 14 BGT 10$ >BR T ECHO NPUT 
4710 O14 INC Ri : NC NT OINTER 
4711 014354 1 CMP R1,RO : F CHARS TO CHECK 
W7ie 014. 001406 BEG 16 ?BR IF ALL CHARS CHECKED 
4713 O14 l26127 005272 oo00S4 CMPB BUFFO(R1),#’, | ;SEE IF THIS IS CO 
4714 14366 1353 BNE 10S :BR If NOT COMMA 
4715 014 1 INC Ri : INCREMENT CHAR POINTER 
4716 014372 000757 BR 14S :BR TO CONTINUE CHECKING CHARS 
4717 “GET NEW DRIVE NUMBERS INTO LIST 
4718 014374 012701 oO0S606 les: MOV #DRVLST,R1 ;GET DRIVE LIST ADDRESS 
4719 014400 O0S50e1 CLR (R1)+ :CLEAR OUT THE DRIVE LIST 
4720 O14402 005021 CLR (R1)+ 
4721 O14404 O05021 CLR (R1)+ 


QO 








CZR6MD0 RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 93 SEQ 0371 
CZR6MD.P11 10-JAN-78 11:48 TO - DESIRED DRIVE INPUT ROUTINE SEQ 0092 

4722 014406 005011 CLR (R1) 

4950 taut 16001 7 18$ Sate BOFFOCRO) R1 i cEEAE ORI VE® SOBER 

q95¢ 144 bs 1 ett BIC #’0,R1 ’ : STRIP pety BIT 

47 144, 1 000001 o0S606 MOVB #1,ORVLST(R1)  3MARK THIS DOR VE_IN DRIVE LIST 

47 144 9009 #2°RO i POINT TO NE IVE NUMBER 

4728 0144 10 o00¢ TSTB BUFFO-1(RO) :S IF NULL CHAR YET 

4729 144g 1364 18S ;BR IF _NO BONE YET 

4730 O1444 CHKLST *GO CHECK NEW DRIVES FOR VALID STATUS 

47 ACOME HERE IF ALL DRIVES REQUESTED 

47 14444 ALLORV: CLR CLEAR ORIVE NUMBER 

47 144 13 001376 SDEVM,R3 :GET APT DEVICE MAP 

47 1 737 000200 001341 BITB 1T7, SENVM : SEE iF NO ZING 

47 1 BNE 1 ?BR I NG 

4736 O14 1 000377 MOV #377,R3 :SET UP IZING 

4737 014 12701 o00001 1$: MOV #81T0,R1 i SET BIT POINTER 

47 O14 2s CLRB DRVLST(RO) IN TIAL Ze DRIVE EN 

47 144 BIT R1,R3 i SE F THIS DRIVE IS REQUESTED 

4 1 001403 BEQ 4§ :BR IF _NOT 

474 1 11760 000001 o0S606 MOVB #1, DRVLST(RO) RAR TH IVE IN DRIVE LIST 

474, 1451 1 4S: ASL R1 ?SHIF 

4743 014512 O05200 INC RO + INCRE NT TVE NUMBE 

4744 O1ueL4 982700 000010 CMP #10, RO i SEE F NG ACL DRIVES 

4745 O1 1364 BNE : I 

4746 - CHECK ALL DRIVES MARKED IN DRIVE LIST F R STATUS 

474 14528 oosooo CHKLST: CLR R : 

iene 14 age 005606 rsie DR LSTCRO) ; IS MARKED IN LIST 

4750 014 en 005510 MOV RO, ORIVE : FOR SC 

4751 014536 004737 027650 JSR PC; SCNDRV : . THIS I 

qoe5 ; y FROn IVE LIST 

4754 o14 42 Ol 6$ AboRE F Sch 

u7ee o1ued4 13760 003124 o0S616 wv Move TYPFMT, orv.stro} YE. RKB, 4=RKO7 

4752 O14e54 2700 000010 CMe #10,RO : CHECKING LIST 

4759 014562 000137 o14D012 cit ELDRV LECTED DRIVES 

4760 O14566 105060 O0S606 6S: CLRB DRVLST(RO) I LIST 

4761 014572 600767 BR 4g :CONTINUE CHECKING THE PROT 

4763 

Yr bY 3 aa ET STRED Test INPUT ROUTING neunnnee 

4765 *é TO - Ree kc T BOUTIN 

4766 Tus ROUTIN TESTS AND ITERATION 

nie 3 *COUNT FOR & fen INPU 18 CHECKED FOR VALIDITY, 

W769 see T iW tole eae SALUE be 8 ONOteaTES 

4771 HETHiS, ROU aoe ted TYPING (L) 

4995 aes ( S130 CBE CH RANGER Be 

ix 
Seoe 5 See ontaa eee oH fe ied ere SELECTION 
4776 :*¥TYPING trey” Pole TRMEDI IATE RETURN TO DRVTST. TYPING 


4777 ;% (tZ) CAUSES RETURN TO ASKTMD. 


COs 
cSReMDCPhie GO-SANNIE iizue Yt POS Beant HEEs Tow ur FRE a $6003” Goss | 





a8 6 HE HEE HEE SE SE A a a A Se a a HH a a Ha EE EE 
qoet 014S74 104401 010244 oy Sr: Tyee” 0G, istnos ;ASK FOR TEST x Sa MODE 
4782 014600 104401 010346 :T NTER OR I” 
Se Bee Bree SM irs “ents 
a? 1Nei2 i. ASKTND i 5 OR ERROR RET RETURN ADDRESS 
47 pes BbsF0g fat RO i Stu) pr I eee 
4788 Ol 1 BNE 4g :BR IF _ANY INPUT 
4785 iWese 1 1 005272 2s: TYP) , BUFFO jECHO BAD INPU 
4790 Ol 1 1 001314 TYP SQUES ; <?) AND <CR>, <LF> 
ures BLUES Qee737 000114 005272 4S: CNP CIO eo oO ee Ota tyPED 
47 Bluesea atte ‘ NE 6s’ ‘BR I No (L) 
4794 014644 000137 014700 IMP LSTTST : JUMP TO LIST TESTS 
788 Biseee Bbtote 000103 005272 6S: cMe §.C, BUFFO ‘Bee IF WSF coyree 
4 1 000137 015016 IMP CHGTST SUMP TO CHANGE TESTS 
i ae Soe ee ea aernam 
4801 
: 914700 104401 010450 ist#gr TE TYEE. wrest — Tyee HEAD ADING NG “TEST ITERATIONS” 
B05 Bis 0 2s: $5R PG, PREPK PKB s ANITA nTBStTHOEX KBD_INPUT 
4 1471 7 1136 . TSR PC, TYBTST iI CURRENT 1 TEST AND ITERATION NUMBER 
1808 Biuree 008737 poses2 Tor INTCHR is EF F cant INPUT 
416 914730 Ageraz 000003 005532 nee 8903, INTCHR tan vf not t4g) TYPED 
Mile BITS ORE BIRZSE cossce we, eo tT luremm aur gF at ebeBOTES OOM 
Seid SIRES Aston a a Bet SPD 
481s 014754 0001 IMP BSKTHD JUMP TO Ask FOR NEW TEST INPUT MODE 
“ais BIER ek ARRREETTYEL swe. 
4818 O14 101 MOV R1'Re :GET COPY 
“es B77g ote am aa gh Nao 
dese Bishes Bers 1es132 BYE Rrre,astes —BESILE kab TATE ROUPT eur nooe 
4 ey 

A CHANGE URRENT TEST <fNo ITERATI 
Wes Bieose Btesie ae 8 BE ERRORRETURN ADDRESS 
4831 015034 905700 RO SEE IF NULL _ INPUT 
4832 015036 001426 BEQ NUL INP :BR IF NULL INPU 
4833 015040 022737 000104 005272 CMP #°D, BUFFO :SEE IF (0) TYPED 
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4834 001405 BEQ LODFLS ;BR IF DEFAULTS REQUESTED 
4835 104401 005272 TYPE , BUFFO yee 
001314 pyre asaves <CR>,<LF> 


918700 905670 toprcs: nov TAOEL IST, Ro eter i He feed IST ADDRESS 
P 


# afst LST ST og! ot 


ee ae ae ad 


ee 


ame Be 


ae 





7. 003116 TSTB F 

deve BUI OBi2% ike ao fo fh 
4847 let i ‘ NUL INP: at’ INET T — 
4848 12} 1 010450 $oBe tL HD ‘Rie eit Notes ITERATIONS” 
4 - TYPE CURRERT wal BNo ITERAT ION’ 
4gs0 151 7 1136 8s: JSR PC Tyerst ST NO. AND ITERATION NO. 
4 151 1 1 012474 , SPAC it a 
4 151 104401 012514 T PRO : :T ASTERISK AND SPACE 
agen 737 030624 — — input Je D gfYPeD 
qgec Bi ia8 R04533 aRTsT . pRERD RET Obn 
4856 015144 014600 ASKTMD 7(¢Z) RE RETURN 8 ADDRESS 
4857 0151 O1512 8S >(¢U) OR_ERROR RETURN ADDRESS 
eH e , flare 
4 i i ooo002 10S: yR1 : NCREMENT iNDEX 
4861 0151 0101 MOV Ri Re . ; COPY Pgs x 
ges GIBIGE Ses70s OUEE76 Ge arutersna SEE TP bore ad for 

15174 914600 IMP ASKTMD ; "POR Ne TEST INPUT MODE 
4 1 1 005272 12S: CMP 8’! BUFFO jSEE IF (3 

1 14 BEQ 16$ >BR T CURRENT ITER. NO. 
4868 01521 CLR Re :INITIALIZE (!) INDICATOR 
4868 1 000041 005271 CMPB #),,» BUFFO-1(RO) ; IF 8 TS IN BUF IS (!) 
urd i 05060 005271 8 Uke BUFFO-1 (RO) ee Saunt 

i ee oo000s 14S The Re RO t Au Inbica 
8 oI ‘ BLT 20$ HANY ( abtEBe NO. = 77776) 
4 1 005272 MOV seurre -(SP) See K FOR OCTBIN 
48 01 oS2464 ISR PC, OCTBIN CK DIG SAND ONVERT TO BINARY 
4878 Ol 208 eae TURN ADDRESS FOR OCTBIN 
487 1 MOV agi BO TERAT 
4 1 077776 CMP 877776 ; E F> — 
4881 Ol 101022 BHI : TOO BIG 
4 1 005626 MOV Bt a ensrem) ;PUT [TERATION ON NUMBER INTO TEST LIST 
4 i 1731 ist ‘i : E i Not cto 
4885 PROPAGATE CURRENT ITERATION NO.’ TO the ND OF TSTLST 
4 015278 1 4 les: MOV R1,Re iC PY 
dese Blesod geerge SOEtEE ee ane TST Sone See TPP ar eh lDe TEE, 
4889 pi 2308 865 BNE fst Set NOT 





SES 0374 
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SEQ 0095 
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4890 O1 137 014600 JMP ASKTMD -GO ASK FOR NEW TEST INPUT MODE 
1 16161 Oos6e% 005630 17%: MOV TSTLST (RI), TSTLST#E(R ) ;PROPAGATE TO NEXT WORD 
4 1 1 ADD 1 ; MENT INDEX 
1 ape BR 16% iBR TO CONTI 
4 1 104401 005272 20S: YPE , BUFFO *ECHO BAD INPU 
4 153 1 001314 TYPE $QUES :TYPE_<?> AND <CR>,<LF> 
4836 15336 1 BR 8S :GO ASK AGAIN 
4898 :ASK FOR DESIRED OPERATIONAL PARAMETER INPUT MODE 
4899 O01 910509 tNPUTP: TYPE XPL iE IN INEUT S 
1 Si2 ASKMDE: CLR STALLS : INHIBIT STALL BE WEEN OPERATIONS 
4901 O1 104401 010626 TYPE , PARMDE :ASK FOR DESIRED INPUT MODE 
1 12514 TYPE :T “4° 
4 1 paSeo4 JSR Pc, RDCHRS > RE RESPONSE TO MODE QUESTION 
. 1 DRVTST 5 (4) RE ss 
SCE, Ot ASKHDE $a) OR ERROR RESORN ADDRESS 
4 1 TST RO : NULL NPUT 
q i 005272 2s ane 5 FO Br iF ay het 
491 154 001314 TYPE *SQUES sECBe <?) AND <CR>, <LF> 
491 1 BR ASKMOE >GO AGAIN 
431 i 41 000124 o0S272 4S: CHE #’T,BUFFO ; E F gt? TYPE D 
ugia 1 015726 IMP YPLST j JUMP TO THE TYPE LIST ROUTINE 
4915 0154 i17 o0S272 6S: CMP #0, BUFFO :SEE IF (0) TYPE 
4gi8 015432 BNE :BR IF_NOT (0) 
491 15434 916200 IMP OPNLST :J TO THE OPEN LIST ROUTINE 
nett i 4 1 005272 8s: CNP 8° 5, BUFFO i SEE IF ss) TY D 
4920 O1 O1646y IMP SETPRM :J TO THE SET INDIV. PARAM. ROUTINE 
4921 0154 122 005272 10S: CMP #’R, :SEE IF (R) T 9 
4 015462 BNE es :6R NOT (R) 9 ECHO BAD INPUT 
4923 15464 005746 005750 CMP S0,S1 7C ecpet) LIMITS 
4 1ea74 010727 eee i YPE “80> 1 NOT ALLOWED” 
4 1 BR AaK 60 SK 1 eoR PARAMETERS 
4 1 005752 005754 12S: CMP S2,S3 :C 2 (DEC) gGECTOR LIMITS 
4 1551 BL 148 ;BR F NOT > 
4 1551 010757 TYPE » SECNL : ” 2S3" 
4930 01551 010740 TYPE NOTAL :T “NOT ALLOWED” 
493 1 BR ASK :GO AGAIN FOR PARAMETERS 
4 1 005740 o0S742 14S: CMP FT.LT : CHOSEN TRACK LIMITS 
49 1 BLE 20$ ; F FT NO > LT 
4934 O1 010771 TYPE , TRKNLW ; “ET>LT™ 
4935 015540 010740 TYPE NOTALD :T “NOT ALLOWED” 
4936 015544 BR SKMDE *GO ASK AGAIN FOR PARAMETERS 
4 :CHECK WORD COUNT AGAINST PHYSICAL AVAILABLE 
4 DISs¥6 005766 20s: MOV wc, ; OUNT LO BITS 
4S 1 DEC RO :DECREMENT BY 1 
4940 Ol CLR Ri :WORD COUNT HI BITS 
3342 i A cLc hte :CONVERT WORD COUNT TO BYTES 
4943 O15 ROL Ri 
4944 015564 005762 ADD MA, RO ;ADD WORD COUNT (WC) TO MEM. ADR. (MA) 
4945 015570 ADC Rl 
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97 SEQ 0375 

1 10-JAN-78 11:48 TO - DESIRED TEST PNPUT ROUT INE SEQ 0096 
4946 015572 063701 005764 ADD 
4947 015576 1 006130 CMP Ri *aAHILMs2 ;COMPARE HI BITS 
494 1 1 BHI 4 BR F Wc Too BIG 
4 1 1 $s ; F IS OK 
4 1 006126 CMP MAHILM ‘COMPARE LO BITS 
4 1561 BLOS :BR_IF WC IS OK 
4 15614 011003 26S: TYPE WCeBIG 1 POPE “a% WC OR MA TOO LARGE” 
4 1 BR A :GO BACK TO ASK AGAIN FOR PARAMS 
4954 - SAVE XxDP LOADER, IF NECESSARY 
4 1 627000 28s: SR pt, CHKXDP ;GO0 SAVE LOADER IF NECESSARY 
4 1 36S :"NO SAVE” URN ERRESS 
4 1 16720 30S: IMP RUNTST : JUMP TO THE RUN TESTS ROUTINE 

1 pa aas 365: TSTB #41 i SEE IF BY 
495 1 BEQ 3h¢ ; 
4960 Ol 7443 TYPE OVLODR :T ° AY LOADER ? (Y OR N) *” 
496 1 rene ISR PC, ROCHRS :RE 
4 156 36S (40) URN ss 
4 1 36$ (#2) RE TURN ADDRES 
4964 0156 365 ?(#U) ERROR RETURN ADDRESS 
4965 O01 022 000001 CMP #1,RO i SEE IF 1 CHAR TYPE 
4366 15664 1 BEQ 38% :BR IF_1 CHAR TYPE 
496 1 i 1 oos272 37S: TYPE , BUFFO *ECHO BAD INPUT 
4368 156 401 001314 TYPE SQUES 
4968 1 736 BR b GO AGAIN 
OT 15 000131 005272 38S: CMPB #’ Y, BUFFO :SEE IF (Y) TYPED 
4971 0157 1001 BNE 40S :BR IF NOT (Y) 
4972 015710 000747 BR GO TESTS 
4973 157 122737 000116 005272 40S: CMPB #’N, BUFFO ‘SEE IF (N) TYPED 
4974 0157 001362 BNE 375 :BR IF NOT (N) 
4375 015722 000137 015344 IMP ASKMDE :GO ASK FOR PARAMETERS AGAIN 
4977 
ua78 .SBTTL TO - TYPE (T) LIST INE 
4309 coee Ting Tees THE ENTIRE CBRANETER LIST ON THE 
4982 FORMAT: ’ XXeYVY yy ME HAS ORME T ght RNERON 
4983 ne yYYYYY IS T BLUE ae TER IN OCTAL 
4984 ING (#0) C SES. The TATE 0 DRVTST, 
43385 (#2) CAUSES 
4986 
4987 0157 wists 
4988 0157 005001 R1 ; INITIALI 
4989 0157 004737 O26040 JSR PC, PREPKB ; PREPARE OR POSSIBLE KBD INPUT 
4990 015734 004737 031172 1S: JSR PC’ TYPPRM ‘TYPE CURRENT PARAMETER AND VALUE 
4991 015740 104401 001315 TYPE SCRLF :TYPE <CR>,<LF> 
433¢ 15744 0057 7 0905532 TST tNTCHR > SEE IF ANY INPUT AT KBD 
49 15750 14 BEG as *BR IF _NO INPUT 
4994 O1 roe 12e7 000003 005532 CMPB #003, INTCHR :SEE IF (4#C) TYPED 
4995 0157 Ooi BNE 4§ jR IF NOT (#C) 
4396 15762 1 013732 IMP DRVTST iJ TO ASK FOR DRIVE(S) AGAIN 
1332 15766 : 37 O00032 ooss32 4S: CHEB #032, INTCHR SEE Fit) TYP 
4999 015776 000137 015344 IMP ASKMDE ‘JUMP TO ASK FoR NEW MODE 
S000 016002 004737 026060 6S: JSR PC, ECOBAD :ECHO BAD INPUT 
5001 O16006 004737 O26040 JSR PC’ PREPKB :PREPARE FOR POSSIBLE KBD INPUT 


o 
ro 
= 
‘ 


Sie) 
v 
~— 


SRE © 


: CRS 


sfateatatatorata 
NOU £WTU-O 


be 


eb hh hh ee 


POO OCO OSS SSS KOO 
Po bb ee ee be ee pe 


PETELE ES LORS EPH 


OONOOOOOOOOOOOOO0000 WOOO000000000 


OO00000000000 





RIF 1 MACY1L1 308 1052) 10-JAN-78 12:16 PAGE 98 SEQ 0376 
3. F356 11:48 TO - TYPE (T) LIST ROUTINE SEQ 0097 
gge 006152 28S: CMP #nNA,, PRINEMCRL ) SEE F Paran. 1s (MAD 
1 ADD RI $M NT TER INDEX 
101 — a Ri’ Re GE 
ST, TE oc 14 IN LIST 
oo RETA SSPE RTL Itt 
i 005760 Be teers: PT Bie IF Pa NOATTERR BOE rar 
3060 I T6, a$TKS : TSABLE 
000137 - IMP BSKMDE jJUHP TO Keb FOR NEW MODE 
401 is: out UseR-DEFIe Then e rypE D PATTERN 15 :* 
1g81 er IAT¥ at SE BS Rok 
‘ 005532 14S: rst INTCHR Te nae ye’ P 
if 000003 o0s532 cNPe #003, INTCHR See IF tC) TYPED 
013732 IMP DRVTST ie) TO ASK FOR DRIVE(S) AGAIN 
000032 o0ss32 16S: cNPS . , INTCHR Ca IF St ) TYPE 
1 015344 ‘ THe BSKND : UME TO ASK FoR NEW MODE 
5 pe aca a ISR PC, nan Bae F SIBLE KBD INPUT 
a feisre me Tae Tipe Bee ites 
ADD 43h ; INC NT’ INDEX 
Bi 994 000040 CMP tae ; SEE IF ie bone yer 
77 2750 I Tb, aSTKS >DI E KBD INTERRUPT 
6051.37 eet - IMP ASKMBE : JUMP TO FOR NEW MODE 


SPAT ROUT INS’ fe ‘ Dt E3T ROUTING , ’ NG OF ALL 
Sey ate cht plbGee STEAL faa 


¥TTY INPUT. TYPING AUSES gg 2 fo pa 
ay a AND (42) causes” RETURN T 


OPNLST: 
4 4 TYPE DF QUES ;ASK_IF ALL DEFAULT VALUES | DESIRED 
bo473 psdes4 ISR PC, ROCHRS ?READ RESP TO DEFAULT QUESTION 
13732 DRVTST 5 (4) RETURN 
15344 ASKMDE :(#2) RETURN S 
OPNLST >(#U) ERROR RETURN ADDRESS 
TS? SEE iF L INPUT 
3939 000104 005272 ee YO BUFFO ae, IF muy Be OT enensee: 
104 #? Ney 
14 E LODFPT F DESIRED 
104401 005272 BE Ee CUFF FFO CHO Bb aute 


104401 001314 TYPE ’ SQUES 
000756 BR SPNLST oa ASK AGAIN 


fatatatay 


- i eS SS. 
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2038 016244 12700 005776 
S060 1ess0 127 005732 
soe Gigese Ose708 005776 
S064 1 4 7 003116 
So6S 1 

1 617008 
1 1 17 
1 1 15344 
16310 005001 
SO 737 031172 
50 ORC FRLize 
so 104401 12514 


VeazZaN= 


RRERRIESORS Rex 


Bes7g0 000010 


pod73? Ose4e4 


aa 


eS 
RRB 2S 


OO DOOOOOOOOOO000000 200 


0 hh hh 


Pe mone ere ene 
Se 6420 Biedee 

50 016422 004737 031304 

5037 016426 062701 oo00002 

ey 005732 


O1e4HG 0227; 005776 
te 

pede BDA 39 015344 

016452 005272 

O164S6 104401 001314 

016462 000713 


OM- OSB IRA LOWH Ow 


CUNT UT UT UT UT Un 
Ce eer ere ee et 
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025474 


0061S# 


oossoo 


08 


10-JAN-78 12:16 PAGE 99 
TO - OPEN (0) LIST ROUTINE 


; LOAD ALL DEFAULT VALUES INTO panees Ter LIST 
LODFPT: MOV sPROFLT, RO LOAD DEFAULT LIST RODRESS 
ws: fy PRES UAB. «FE BEB GPterbut tacue™™one=® 

, CMP ieee Wt APP BENE YET 
a 


PCr e LAG c IF DEFAULT FODe ET 
BNE % ames ‘BRIE “DEFAULT RODE 
he PAS = 
IMP StPASS ‘G6 RUN DFLT TESTS 
OS torr HTNITIALIGE INDEX Oe 
Aire BE et reine TED 0 AND vault ste teen eae 
ee a blot 
READ i HECK INPUT, IF ANY — . 
‘ Sk theur, JE om OCTAL, DIGITS TYPED 
DRVTST >(#C) RETURN SS FOR RDCHRS 
ASKMDE '(42) RETURN SS FOR ROCHRS 
>(¢U) ERROR RE ADDR. FOR RDCHRS 


#8, RO SEE } ANY 

B 10S :BR I INPU 

CMP #°MA, PRMNEM(R1) ca IF (MA) JUST DEFAULTED 
#2, R1 : 


Bub 1 iar T ON 10 XT PARAMETER 
os Be HD ey eee eae 


#10, RO 
JSR PevocTBIN” CHECK fins 8 CONVERT TO BINSRY 
145 ERROR Ref SS FOR OCTBIN 


MOV 
; CHECK rv ecrentiiieet oct, “HIGORT ie le TNARY a1 . 


JSR PC, CHKPRM x VoL TOT ITY OF PARAM VALUE 
ba $ re FOR CHKPRM 
OPEN USER-DEFINED PATTERN 15 FoA IFICATION, IF NECESSARY 


les: 
;MOVE ON I38 NEXT AMET R 
200 ae, RI ; INCREMENT THE PARAMETER INDEX 
MOD RPANCST, R2 :€0 9E Post ION IN LIST 
CHP #PROFLT; Re jSEE IF DONE WITH LIST 
; 


INP -ASKMDE te OA lee Poa he NEW MODE 
14S: TYPE , BUFFO 


TYPE SQUES LIYPE ay a ANDY ‘ca, <LF> 
BR 0 ASK AGAIN 


-SBTTL TO - SET (S) IN 
se THIS ROUTINE IS USE 
ETER VALUE BY 


PARAM ey DIVIOUAL 
TYPED AND THE ROUTINE 


SEQ 0377 
SEQ 0098 


CZR6MD0 RKG11/06 SS VERIF 1 MACY11 308‘ 1052) 10-JAN-78 12:16 PAGE 100 SEQ 0378 
CZREMD.P11 10-JAN-78 11:48 TO - SET (S) INDIVIDUAL PARAM ROUTINE SEQ 0099 
5114 # *XXEYYYYYY WHERE XX IS THE MNEMONIC FOR ANY VALID 
piis Rin N THE LIST, BND YYYYYY THE DESIRED PARAMETER 
11g HVAC UE Th 0¢ AL DIGITS. THE PROGRAM THEN ASKS FOR ANOTHER 
S11 are By TYP AGAIN. TYPING (#C) CAUSES 
e118 | SIBMED ATE 146 DRVTST, AND (¢Z) CAUSES RETURN TO 
pied 
51 N16464 exter 
182 016464 104401 012517 TYPE PRMPSP ;TYPE “> * PROMPTER 
i ;READ AND CHECK INPUT IF ANY 
ies 16470 737 030624 ISR C, ROCHRS ;READ INPUT LINE 
1 16474 eee DRVTST :(#C) RETURN SS FOR RDCHRS 
2iss pieess bleaes ee DRA att OR ERROR SRN ADDR. FOR ROCHRS 
5138 16 7 oo0004 CMP RO, #4 :SEE IF A EAST 4 CHARACTERS TYPED 
2 teet6 Soquel o0se72 us: id Oe UFFO iBoue peo InpuT | ee 
5131 OLE 4 1 rete , TYPE *SQUES if <?)> DCR <LF> 
2 1B Gouge? 000013 6$ BRP Ave BR See IF ELEVEN intr Le <5 CHAR TYPED 
2133 Bie : BGT Gg: Bee BR IF Vien arr N TYPED 
2135 , : ;SEE IF THIS MNEHON IC RESIDES IN’ PARAM int an eter Weep T . 
5137 Bless Bo 30et 005272 006152 28s: CMP BUFFO,PRMNEM(R1)’ ; IHiY T TCH pene & Foto MONIC 
1 165 001411 BEQ 10S ;6R JF IN TABLE 
cisg Bleewe Brpjge 00002 ya Pest a 
at pte op 005732 ADD #PRMLST,Re GEE § i, HAVE BEEN CHECKED 
ety O1es69 ape — SNE sali F TO CHECK YET 
The BIE 323 BR g$ ‘BA 6 pens INPUT 
elude 016564 OO oo0002 a ae NITIAL R POINTER 
5147 16870 128768 000075 o0S272 é‘ cHPS a2 ,BUFFOCRE) SEE IF hext "CHa 
ets oI iee7ee 000040 005272 CMPB S040, , BUFFO(R2) See TF Tred? cH gine S A SPACE 
5iso0 01 I BNE 4 ?BR T ECHO 
Bt 1661 202 INC Re ; NC NT FER POINTER 
21 : 1 e7be 000075 005272 cNeS a=, »BUFFOCR2) = ‘ F NEX 1 , in ll 
pies 1 12S: INC Re HINCREMENT BUFFE INTER 
else ot 535 sie || ge RO ee "ECHO IMD INPUT 
eles 166 22762 OO0D40 005272 CMPB #040, BUFFO(R2) +SEE F NEXT TER IS SPACE 
e158 16636 1003 BNE 14S :BR I A 
159 0166 202 INC Re j INCREMENT BUFFER POINTER 
B160 1b64e 0200 CHE Re, RO i SEE Ir HORE CHA HA LEFT IN BUFFER 
Bibs 1Pede Te b200 14S: Sus R2,RO Sue Tac INTER FROM CHAR COUNT 
516. 16650 620027 000010 CMP RO; #10 Be HOW HARS LEFT 
5164 016654 003315 BGT 4§ IF TOO MANY LEFT 
5165 ;CHECK FOR LEGAL PARAMETER VALUE’ 
5166 O16656 062702 005272 ADD #BUFFO, Re ;GET ADDRESS OF DIGITS 
S167 Ol666e 010246 MOV Re, -(SP) :PUT IT ON STACK FOR OCTBIN 
5168 016664 004737 os2464 ISR PC’ OCTBIN :CHECK DIGITS AND CONVERT TO BINARY 
5169 016670 016510 ug :ERROR RETURN ADDR. FOR OCTBIN 
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MO.P11 
Bice Bisece 
171 016676 
$172 pieces 
5173 016710 
eite 
17S 016712 
2128 016716 
17 
5178 
e123 
180 
5181 
5182 
tt 
184 
5185 
5186 
a 
188 
5189 
ab 
fig 
5193 016720 
5194 
ei 6720 
196 016724 
Te 6730 
BE 


aes 
Crono 
saee 


ot 
oi 
a1 
este G16 
S204 tes 
O1e7eg 
ae 
sie Biers 
e219 ler 
esis : 
S213 ot 
seis 017014 
ae oven! 
2sig piace 
S220 017040 
5se° pico 
S22 17050 
S22 017054 
224 017062 
Sees 017064 


10-JAN-78 11:48 


00S476 
O0Se616 
031630 


031304 


mMACY11 30A(10S2) 1 
TO - SET (S 


oossoo 


005510 


RROR 
; OPEN USER-DEFINED PATTERN 1S FoR” MODIFICAT 
JSR PC, MODP 1 


. SBTTL 
ve 


+ EEOR 
pe 


TEACH 
:% CALL 


O-J 
.. 


JO8 


AN-78 12:16 PAGE 101 
NOIVIDUAL PARAM ROUTINE 


MOV (SP)+, LOWOCT T LOW BINARY BITS 

MOV $HIOCT HIGOCT T HIGH BINARY BITS 

JSR PC, CHKPRM heck VALIDITY OF PARAMETER VALUE 
RE ADDR. FOR CHKPRM 


1. Be 


Pitas 


potas i ee 


oetiast 


SETPRM 


RUN (R) TESTS 


N 
ON, IF NECESSARY 
SK 


;RETURN TO FOR ANOTHER PARAMETER 


T 
10 pee Ue THE RUNNING OF TESTS, 


cee TIRED DRIVE, “AND 


RE ei a 
IN Eigen? BYTE, AND A JUMP IS 
ROUTINE RETURNS TO “NEWORV” TO SELECT 


Cs E08. TESTING, UNTIL THE ENTIRE PASS 


RUNTST: 
INPUT THE DESIRED NUMBER OF PROGRAM PASSES 


4g: TYPE ENTPAS 3 ASK FOR R OF PASSES 
ISR PC, ROCHRS ;READ 
DRVTST 7(#C) RETURN ADDRESS 
ASKMDE (#2) TURN 
48 >(¢U) ERROR RE TORN ADDRESS 
TST RO : IF NULL INPU 
BEQ 65 :GO ASK AGAIN 
CMP #5,RO SEE HOW MANY CHARS TYPED 
BGE ?BR IF 5S OR LESS 
6S: TYPE , BUFFO *ECHO BAD INPUT 
TYPE QUES . 
8s: MOV FO,-(SP) 5 oO Fae ON STACK FOR OCTBIN 
ISR PC, OCTBIN ; CHECK GI S AND CONVERT TO BINARY 
65 : URN ADDRESS FO BIN 
MOV )+, SEOPCT >SET 5 NO. OF PASSES (1-77777) 
BEQ : RB AGAIN 
THIS. IS THE ACTUAL START OF A RUN WITH X PASSES 
dtpAss: CLR SPASS ; INE . THE PAS R 
VB #1, TSTING : 4 Ng. ES Ss” FL 
NEWPAS: MOV #177777, DRIVE IN Tl IVE NO. TO -1 
T T VICE COUNT To 0 
{CHECK DRIVE LIST FOR MORE DRIveS T Te T ON THIS PASS 
NEWORV: MOV ; c-€5 ISH PRIORITY 
MOV SSTACK. SP ;RESTORE STACK 
CLRB DRVERS’ ;CLEAR ERROR COUNT FOR CURRENT DRIVE 
cLR INTCHR Clee TTY INPUT BUFFER WORD 
CMP #10, DRIVE Ree F DONE HY uty Hs PASS 
BNE Ror CKING LIST 
IMP DUNPAS GRE IF OOONE Re Erte THIS PASS 


SEQ 0379 
SE@ 0100 


SEQ 0101 


SEQ 0380 


KO8 
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TO - RUN (R) TESTS ROUTINE 


MACY11 30A(10S2) 
es: 
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;6500 US FOR RKO7 
IVE NO FOR APT 
GET THE DRIVE FORMAT 


;71000 US FOR RKO7 


/ TRAC 
CMND(RS) ; 


SUNIT 
aeecor 0 

INITSS 
AD,P. 


00. 
464. , MAXLO4 
MAXHI4 


#0 

8S 

si, 
Cc 
RO 
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RK611 06 SS VERIF MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 103 SEQ 0381 
Te 8 -San-7e 11:48 TO - RUN (R) TESTS ROUTINE SEQ 0102 | 
J PC, DRVC 
em . ge Bee: 
BIFESS BME oir77e a nn 2 a eee 
pifecs Gayene SSE os: gE agrTrscRe) I ETE Fo Roeey” On © 
017562 105037 003125 CLRB = FORMAT : INITIALIZE FORMAT BYTE TO O 
17566 p05516 nov 8¢.F oath SECTOR LIMITS FOR 22(DEC) SECTOR FMT 
tata BIs73 poe7es TST RKDB(R2) ILO ONE TIME 
17608 gee 001000 o00024 BIT #8179, RKDB(R2) tae FORMAT ar cFa FS NHEADER WORD 2 
nee brsea7 Boevse boseie OV’ SOs Fg FORMAT 520. eon CIMt Te FOR SOLE) SECTOR FMT 
O1ze40 513535 ae boeeie 8S: HOV ios ‘1 Be UNIT STALLS DESIRED 
ses i ita con j Pes BSF 0 BO 2g TOR FILE FOR THIS DRIVE 
, ; 
Riess ieacar Broaee S13 2 nk 
Bizsas Baiois Ootsee a ie, Fw He har Beak "Pass 
Tease mbes Re a oe eee 
17714 ; 005770 BIT #6tT4,Ccs 'SEE IF BBD SECTORS D BE TYPED 
Sire Be mesos, Hear EO ete cre 
Bi 7789 105737 003136 Ts18 marie eae iF yoy DUAL-ACCESS 
o177e0 a imo RWOTST STUMP TO ROW DATA TEST 
17754 LCMS: ;LAST cy 
B17 Fee rSTCyL: 8 teat & cr “3 FOR RKO6, 1456 FOR RKO7 
sles Bi: 8 
017770 HOLD3: O 
B55 rere: 
B17778 Hobe: 8 
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CZR6MD0 RK611/06 SS VERIF MACY11 30A( 1052) 10-JAN-78 16 PAGE PAGE 104 SEQ p28 
CZR6MD.P11 10-JAN-78 1 tus RECAL IBRATE/ EK EST 3°6103 
S332 5 RARE RARER AG RARER RE EERE REE EEE SERRE REAL RRR RRRAARAALA EL LRAES 
5333 ; ATEST 1 RECALIBRATE/SEEK TEST 
B35 1 THIS TEST PERF RMS A RECALIBRATE, FOLLOWED BY A 
5337 ;# SEEK TO CYL R LC. 
Bs Ma TC 0 eee oni sat ac emer pace om 
000001 001324 #1, STESTN ;;SET TEST NUMBER IN APT MAIL BOX 
eu pSpote poe O30850 c, * SHKITR ie VF Foe ay te 6 FOR THIS TEST 
= 
O20022 137 O3obeS : Shan UMP onent Wey 
;RETURN HERE FROM ITR. IF Test’ RUN 
020026 004737 027522 j INITIALIZE DRIVER PARAMS AND SUB-SYS 
020032 004737 O26040 ist ;PREPARE FOR POSSIBLE KBD INPUT 
;RECALI RATE THE 
8 020036 112765 000113 on00001 ive P.CMND(RS) T RECAL COMMAND 
5349 020044 004737 040316 JSR CDRVEAL nian ALIBRATE DRIVE 
380 ;D0 SEEK TO cvL INGER 
1 020050 013765 005734 oD0002 MOV LC,P. SLNCRS) ;SET CYLINDER = 
p35¢ G20056 004737 032374 JSR PC’ SEEKER :DO A READ SE ADER® OR EXPLICIT SEEK 
5354 
e356 en ee ene 
SEEK/SEEK TEST 
1 . 
S362 © MEM MRRG RGR RRR RASRKRERRRARRARRRRRRRRRRRRKRRERKRKRLERKE 
B34 Bsonea Bees? 188 Rov 
4 4 012737 oo0002 001324 #2, STESTN TEST NUMBER IN apr MAIL BOX 
23ee Geoo7e pnueS? pape 158 pe hit TR ‘ye Foe ORD. ON BR Fon 
737 os R t YE R. FOR THIS TEST 
5367 020102 000137 O20142 UP To NeXt Meer 


2369 1 7 2 — fee Frog FRO aot “ Test’ ana Me OBIYE R_ PARAMS AND SUB-SYS 
5376 Bs01ts Bou? 7 Be040 B GRUPO IBLE KBD INPUT 


;00 SEEK TO CYLINDE 
$37. ped! & 013765 005732 o00002 Ho B-CYLNCRS) sSEr CYL = FC 


537. 004737 032374 ,SEEK EK TO FC 
2350 1 37 734 oo0002 — a cnt N(RS) SET CYL = LC 
e378 pStse Biao8s 693534 ISR BE pCi + EEK TO Lc 
2359 
380 4 - PERK KRKKKKKKRARRARAAS SARA EAARRERARRARAKRARRRRRKARKRA KARA RAK RAEREE 
381 TEST 3 CYLINDER ADDRESSING TEST 
5383 3 THIS TEST VERIFIES THE CYLINDER ADDRESS BITS 
5384 3 SEEKING TO sEke aR Py 10,20, 40, 100,200 GoacocT). 
385 2 i THEN. THE SEEK E pone” N REVERSE, to 400, 200, 100, 
e369 + 40, O38, 10,4,e 
; 


| 

| 

e3e6 Hon 
’ 

te THIS TEST PERFORMS A SEEK TO CYLINDER FC, FOLLOWED 


(EE 


an 


CZR6MD0_RK611/ 


CZR6MO0. 
5388 


pan 


saaRoaneas 


WU 


Pil 


020274 


10- 


tae MACY11 oe 10-JAN-78 12:16 PAGE 105 SEQ 0383 


017766 000002 


ooo00e 


000004 001324 


CYLINDER ADDRESSING TEST SEQ 0104 
Sasa. 7 ompegepamcmpipmnsagnes ice 1 ie li tala ect cint ea 
“MOV #3, STESTN 5 ,SET TEST NUMBER onl apr MAIL BOX 
Jen pe GHKITR ieee cA TER, NO. ERROR THIS TEST 
JMP T + Sone t Mest 
sgprievenst HERE FROM Chi TR_IF eomael oD I DRIVER PARAMS AND SUB-SYS 
PC; PREPKE SORE PARE fe. POSSIBLE KBD INPUT 


JSR 
;SEEK TO CYLINDER 
L P. BNcRS) ;SET CYL = O 


ISR PC,  SEEKE KER SEEK 19 TO CYL O 
; SEEK TO CYLINDERS, 1 Le 10,20,40 of (FORWARD DIRECTION) 


N RS} ; tNIT Ttace IZE CYL TO 1 

2s: ISR PC SEEK R ; Me CURRENT CYL 

ASL P.CYLN( ; K EXT CYL NO. 

BIT HOLDS. P. eYLN(RS) "agee IF WITH FORWARD SEEKS 
; SEEK TO GYLINOERS 409 00,100, ub rons a Done (Reverse DIRECTION) 
as: ASR ates nag heKt Bub ”NO. 

R be CYLNES) >SEEK TO C NT CYLINDER 

TST BgCYLNCRS) Bee IF DONE oll REVERSE DIRECTION 

BNE BR I YET 
4 h-5-5-5-habelalabalahalalalal-tehal-iet-+-5-iah-t-+-$-+-5-5-tah-+-4-4-4-4-4-babyial-1-5-+-tadialadalalaialaialaiiabaiaiaiaiaiel 
jkr T4 CYLINDER ADDRESS CROTSTALK TEST 
1 i THIS TEST PERFORMS SEEKS TO CYLINDERS WHOSE ADDRESSES 
1 i ARE SUSCEPTIBLE TO BIT CROSSTALK WITHIN THE CYLINDER 
i ADDRESSING 1 LOGIC. THE CYLINDER ADDRESS BITS SEGUENCE : 
+ % 000° 000 oo0 
i Oll iil 111 
on oe) ie 
2 bod bao 000 
+ Oli 111 101 
i 000 000 000 
5% “ 
;% s 
;* : 
$i 000 000 000 
1 i O10 111 111 
2 a 000 000 000 
# 101 iii 111 


jj fartengasspessesesncoconssazenseneasenenssossssunsessauosunnes 
MOV #4, STESTN ;:SET TEST NUMBER IN apr MAIL BOX 
JSR PC, SE TTUP ;SET UP FOR LOOP ON ERR 


; SEE TF ITER. NO. = O FOR THIS TEST 
JMP ; JUMP TO NEXT TEST 

;RETURN HERE FROM CHKITR IF TEST’ SHOULD BE 
JSR PC, INITSS ; INITIALIZE DRIVER PARAMS AND SUB-SYS 


On 
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sw G20300 004737 O26040 
44B 920304 0506s 900002 
Ean 310 004737 032374 
5449 14 012765 000377 
BBO pease Baas? pea 
737 
| eS egress prez poeeas 
| La Ee 
| eueg 80398 | S0N7 33374 
5460 020374 006337 005514 
| 5461 O20400 000755 
S462 Oe0402e 012765 000577 
| 8463 O20410 004737 032374 
 ~Buey 
| Ee 
| eyes 
5468 
| 5469 
5470 
471 
| uz 
5475 
S474 
2456 020414 00004 
5477 O20416 012737 oD000S 
S478 Oe04es 004737 030462 
BS BES Bi 
4 40 737 027 
Es ECR STH SLAG 
eyes 013737 005732 
cies Geos Blarec Doses 
euee 55 beara? pos a2 
S489 OBON7e OOS0i 
5490 3737 005736 
5491 3737 005734 
43e 14 ° 
eug4 38 Te3739 005736 
5495 7 7 
a G205e6 Ge3737 005734 
5498 020536 023737 0057 
5499 020544 00301 = 
| 
| 


MACY11 30A(10S2) 
T4 


ooo00e 
005514 
o0ossi4 
ooo0de 
o0000e 


000602 


001324 


oossee 
ooo00e 


00S734 
oossee 
o0sSee 


o0sSee 
o00SSee 


005734 


SEQ 0384 


10-JAN-78 12:16 
Seu 0105 


at PAGE 106 
CYLINDER ADDRESS RROSS TALK TEST 
JSR PC, PREPKB ;PREPARE FOR POSSIBLE KBD INPUT 


;SEEK TO CYL O 
CLR P.CYLN(RS) ;SET CYL = 0 
JSR P EKER ;SEEK TO CYLINDER O 
;SEEK TO CYL 377 oop 
MOV CYLNCRS) ;SET CYL = 377 
JSR pe SeeKe : SE K TO CYL 377 
;SEEK TO REMAINING eRoSe Roux emt 
MOV N THe ize BIT MASK 
2S: CLR e. EYLNC Cc 
ISR 1 PEBFER, EEex TO cYL 0 
BIY S95 CYLNOR IF T TO DO LAST SEEK 
BNE 4 IF THIS WILL BE LAST SEEK 
MOV . CYLN(RS) Cc 
BIC see, grLNcRS i “ZERO A BIT TO PROMOTE CROSSTALK 
ISR ;SEEK TO THIS CYLINDER 
ASL ‘SHIFT BIT 
BR SYLNOR :GO SEEK K TO CYL O AGAIN 
4S: MOV #577,P. CYLN(RS) :SET C 
JSR PC, SEEK ; SEEK 16 CYL 577 
H | SEER KKERKKERERREK ARREARS RAE RARER RARER RAR REAR RERRRRERERARKRRRAKKEHRE 
iRTEST 5 INCREMENT/DECREMENT SEEK TEST 
5 IN THIS TE reat te ARE DONE IN INCREMENTS ong. ue CYLINDERS 
3x SEEK oT ARe Done OP RSE Bet TO Of BE c Is CHOSEN >» LC, 
is KREEKS Bote 2 ED IN’ THE OPPOSITE BE RECTION. 
; et Re ee ee ee 
MOV 8s, . SIESTN ;;SET TEST NUMBER IN APT MAIL BOX 
JSR tée UP FOR LOOP ON E 
JSR BE KTR ;SEE IF ITER. NO. = 0 FOR THIS TEST 
IMP TSté : Jur TON xT TEST 
; RETURN HERE FROM CHKITR IF TEST’S' BE RUN ER PARAMS aaa 
ISR :PREPK inert Te OF POSSIBLE KBD oNPUT 
;SEEK IN TRCREMEN §, FROM FC 
MOV evra ta8 NCYL! TO FC 
2s: MOV NCL AP B.CYLN(RS) | T CYL = NCYL1 
JSR PC, SE , se K TO NCYLI 
CMP Pe pee :SEE IF FC > LC 
BGT 4g :BR IF FC > LC 
ADD IC, NCYL1 31 RENENT NCYL1 
CMP LC*NCYL1 :SEE IF LC EXCEEDED 
BGE 2s :BR if NOT YET 
BR 65 *LC REACHED - DO REVERSE SEEKS 
4S: SUB Ic, NCYL 1 *DECREMENT NCYL1 
CMP LC} NCYL1 :SEE IF LC EXCEEDED 
BLE eS. ‘BR IF NOT YET 
- SEEK IN. TNCRENEN S, BACK TO FC 
6$: c,tc ;SEE IF FC >LC 
scr BS’ :BR IF FC > LC 


cog 
CoREND-PL 16-SAN~78 irae = PCY! SPBCIOSE)  ARERENT/BecREnenT SEEK 4241 SEO. 03°06 | 


020546 163737 005736 oDSSe2 SUB Ie.Nevi sDECRENENT NCYLL 
Soh fsteesd fpacr Sore OSE = CRA] UE DF Gee 
736 o0ss22 Bs: BRO tS novus Hc ENP ncyfkt DONE 
732 o0s5e2 ch FC’NCYLI EAI Fc EXCEEDED 
5507 O4 013765 005522 oDD002 108: MoV NCYL1,P. GYLNCRS) ise f Foeney = NOYLI 
2 004737 032374 JSR PC, SEEKE! 
& 000747 BR 6$ 


020620 12S: 


orarararatatarar gt 


5 1 
Bens os0et 
10 
ie 
13 = RERLEKEKREKSAKAAKHEKESEEKSRARRERAEKMARESRESKEAAREK ELLER KL HEE KK EEE SE 
14 I RTEST 5 OSCILLATING SEEK TEST 
18 5H IN TH THIS TEST. SEEKS OF FANCREASING LENGTH ORE nrc. 
3el8 ix Each HSER, ee, EOELE: 1h° TO ich adlete PaOeecB TAG EE 
Be0 is Ege EXCEEDED, ait: sane b2efE PORE SaBhE IN REVE he BRDERS HED OR 
EGee : 
SS23 ; a ad 
225d Reese §99993 000006 001324 7 . #6, STESTN ; TEST NUMBER IN APT MAIL BOX 
Ses? Gopeas pousa? | pspeS0 3eR pe" eAKITR ifr VE OTTER ONO. © O FOR THIS TEST 
= 
soso eteed Bares Beis83 vperumn ite rrotitte rg nett Bsr 
2253 020644 004737 027522 Ee PC, INIT :]NITIR iZe DR IVER PARAMS AND SUB-SYS 
5531 Oe206S0 004737 O26040 PREPARE POSSIBLE KBD INPUT 
236 ;D0 OSCILLATING SEEKS TO TOHARD Lc ° 
54 O01 905738 oo0ss2e2 MOV Yb ;IN TIALIZE NCYL1 TO FC 
5534 1 000002 2s: MOV Neve CYLN(RS) | T cyl = NCYL1 
2eae waa O13 Oos7as po0002 aO0 F PC, SEEKER NCRS) eT ct NoyLI 
2238 pes a2 3533 3 JSR bee E-Gren ; SEEK 15 FC 
005732 005734 MP FC,LC i F FC > ¢° 
14 T 4 FO>L 
5 16 005736 ooss22 ADD IC,NCYL1 ; INCREMENT NCY L1 
seus 005734 o05S2e2 CMP LC; NCYL1 gee iF ng &F EEDED 
2 4 Bae es ;LC batten = = DO REVERSE SEEKS 
5544 0207 163737 005736 oosSs22 4S: SUB IC,NCYL1 *DECREMENT NCYL1 
seu peor 063732 005734 005522 che i BEE iF nb¥ EXCEEDED 
3 E 
4 -DO OSCILLATING SEEKS TOWARD FC 
228 geo7e4 023737 005732 005734 6&$: chp EC, Le BEE, IF LE FC Me: 
Be Tha73? 005736 o0sse Sus Ss, NCYLI 
fe Os077 023737 7 00552 ene FEANCYLL SEPP EE re Ex Ex Epep 
S5S3 021002 o00422 BR 3 :FC REAC HED - VL DONE 
5554 021004 063737 005736 o0sS22 28s: ADD IC, NCYL1 : INCREMENT 
5555 O2l0le 023737 005732 O0S522 CMP FC;NCYL1 :SEE IF FC EXCEEDED 
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ooe 
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S606 
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o0000e 
oo000e 


001324 


10S: 


12$: 


HRC NRCC RC ORC te 


SOs eee es wees ws eres eee 


+817: 


; RETURN 


4S: 


6S: 


; ATE 


10-JAN-78 12:16 PAGE 108 
eer SEEK TEST 
BLT sFC_R EACHED - | DONE 
MOV eeegrENeRS? 4 T K fo Ne NCYL 
JSR 4 NCYL1 
MOV BENENCRS) = FC 
gar SEEK EK “a Fc 
B 


= Se eS SE 06 SE 0 A SE a a 9 A 9 A a a 0 a a a 
EST 7 CONVE TEST 


RGING/DIVERGING SEEK 
THIS TEST 


an 5 oo WET RGt 


EKS ag an EXERCI 
= LC. K I 


YL 
N-to" NeYLE, BNO NEN, NCYLI IS in REMENTED 
Y IC IN THE Ore noe LC, AND Nevia IS INCREMENTED BY 


non Bonrn N. “ante. o eefkine a EONT TH INCREMENTED 


eee Re TIL NC CEEDS LC AND NCYLe 
ee ane 


CYLINDER Eek IS 


ad 


siekina ts ti THEN DIVERGING 


+ 2 3 HE Se ME He HE He HE HE HEE HE HE HE HE EH HE EE REAR REE ARRAS RARER EARLE ARLE 


ney a7, pe; Sertu ; ser ‘ye Fo reer ON ERROR MAIL BOX 
’ OOF 
JSR Pech HKITR ie Fo neat 0.77 FOR THIS TEST 


JMP 
HERE FROM ores IF TEST 
A IVER PARAMS AND SUB-SYS 
; POSSIBLE KBD INPUT 
; YL1 = 
5 


Fe Rene ee 


“ Ley PegYENCRS) T YL 
ek 

, s ] 
oe Fe seep rere. 
ADD IC, NCYLI ; INCREMENT NCYL1 
S IG’ NCYL2 : Pert nevL2 
c LE’NCYLI : F Limits EXCEEDED 
BGE 3§ : NOT YET 
Bien, «eae tO 
CHP Ic, Need SO REET MT TS EXCEEDED 
BLE bg BR i not tf 


ee Ge eee 


PSEUDO-RANDOM SEEK TEST 


4s 


SEQ 0386 
SEQ 0107 


09 


CZR6MD0 RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 109 SEQ 0387 
CZREMD.P11 10-JAN-78 11:48 T10 PSEUDO-RANDOM SEEK TEST SEQ 0108 
5612 5% THIS TEST PERFORMS A SEEK TOA PSEUDO-RANDOML Y CHOSEN 
Bb13 i CYLINDER, WHICH IS WITHIN THE RANGE (0-632). 
1 MVTOTOT TTT TTT TTT TT TT TT iti ttt ttt ttt ttt tii tttitittitititt tit 
1 909004 ST10: SCOPE 
1 012737 000010 001324 MOV #10, $TESTN ;;SET TEST NUMBER IN APT MAIL BOX 
561 62 ISR PC, SEIT ETTUE iS get UP FO OR LOOP ON ERROR 
ISR . NO. = O FOR THIS TEST 
PE Chi Eke To! XT TEST 


JMP 
;RETURN HERE FROM CHKITR IF rest’ "SHOULD 
Ns 027522 JSR PC, ps TSS IVER PARAMS AND SUB-SYS 
PC; PREPKB ;PRE POSSIBLE KBD INPUT 


TS ed ed ee 


ee 

ORD forormrorD 

TREE Raw 
a8 
S88 
Ree 


737 4 RNDADR j SELECT A PSEUDO-RANDOM CYLINDER 
13765 005514 oo0002 MOV CYLNOR, P. CYLN(RS) cyl VAL 
004737 032374 JSR PC, SEEKER ;StEK TO THIS CYLINDER 


562 
apes 
S630 = SEEKERS EKGRERRRERRRRREGR RR ERRRRRARRERRRRRRRERKRRRRERRRRRRR EE RRHE 
3631 j TEST ll MAXIMUM VELOCITY REVERSAL SEEK TEST 
5633 1% THIS TEST PERFORMS 8 , SEEK TO CYLINDER FOLLOWED YA 
5634 ; 201 oe $05 EM a THtS 
5635 i Ral of ranBun HE HEAD 0 bee RAT EBON CRE ACHING 
5636 :% —€S HEATING IN 
3637 ie EeANO ME CHAN 

;* 
S639 + KEGEL SEKRRESRKRRRESSRERRSARERSRERRERRRRRERARRRKRRRRARAARRARKHE 
5640 021300 900004 +éT11: 5 
564 Gel 012737 000011 001324 MOV gil a$TESIN T TEST NUMBER IN APT MAIL BOX 
564 1310 004737 0462 JSR ft LOOP ON ERROR 
564 Ge13 4 904737 30 ISR Bet IR EE F ITER. NO. = O FOR THIS TEST 
5644 1320 137 021366 IMP PE Chi XT TEST. 
5645 ; RETURN HERE FROM CHKITR IF rest’ Shou 
Bbue 921324 0047: 027522 ISR PC, INITS IVER PARAMS AND SUB-SYS 
564 1330 0047 40 JSR PC R POSSIBLE KBD INPUT 
5648 1 CLR PaCYLN( ) PREPARE = 
2ou9 1340 3 JSR PC KE : SEF, TO tye o 
56 1344 012765 01 oo0002 MOV #201,P.CYLN(RS) ; CYL = 201 (OCT) 
5651 021352 ? 032374 JSR PC, SEEKER :SEEK TO CYL 201 
S652 021356 005065 o0000e cLR P.CYLN(RS) : CYL = 0 
pe53 021362 004737 032374 I PC, SEEKER :SEEK TO CYL O 
seer 
5657 + REGGE EGER REGGE RRR RRR RARERRRERRRESERRRARRRERRRERE SHAKE 
2638 ; ATEST 12 MECHANICAL VIBRATION SEEK TEST 
5660 i THIS TEST PERFORMS GEOMETRICALLY INCREASING SEEKS WITH 
5661 ti GEOME ORETRICALLY DECREASING. STALL TIME BETWEEN OPERATIONS 
cee 1a WITH Nt NT TO INDUCE VAR YING VIBRATIONAL MODES UPON 
eeed + THE POLL OWING SE cE 1S PERF WY rdedicactiting. 
S665 1 a SEEKS ARE DONE BE EDEN O Rr en N’ rons. THEN, ST Is 
5666 % DIVIDED BY 2 AND LC IS DOUBLED, AND SEEKS ARE DONE 
5667 1 i 0 AND LC AGAIN, TEN TIMES. THIS PROCESS IS CONTINUED FOR NEW 
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001324 


oossi4 
001276 
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C1052) 10-JAN-78 12:16 PAGE 110 
le MECHANICAL VIBRATION SEEK Test 0 a oe 
; VALUES OF ST L EXCEEDS CY’ igo (OCT). THEN, 
* TRE LOL E Brocres fs REVERSED, Wi HST ED AND 
i Lc DIVIDED BY 2, UNTIL L 
_AvltcecasleC aia hewenach siti R es 
MOV Saran $4567 TEST NUMBER IN APT MAIL BOX 
JSR wee ERROR 
JSR PC CHK E IF I NO. = 0 FOR THIS TEST 
IMP tie UMP TO R TEST 
;RETURN HERE FROM omits IF TEST’ RUN 
J sIN DRIVER PARAMS AND SUB-SYS 
J ; POs TBLE KBO INPUT 
#1; Bae res | j INIT. CURRENT CYL 
MOV oot STHPE :INIT. STALLS 
-DO INCREASING kK 
os: nov #10. , SCRACH s INIT, LOOP COUNTER TO 10(DEC) 
sTHPE STALLS : CURRENT STALL IN STALL WORD 
4S: oe .CYLACRS) :SET CYL = O 
PC, SEEKER KT 
CYLNOR, P. CYLN(RS) T NT CYLINDER 
ey PC, SEEKER ;SEEK T CYLINDER 
DEC SCRACH DEC OUNTER 
BNE 4 :BR IF NOT I S YE 
CLC >CLEAR 
ROR STMPE :DIV “ T 
ROR STMP : D STALL BIT 
CYLNDR 7D CYLINOER NUMBER 
al #B81TO9,CYLNDR ; nBONE HITH INC ASING SEEKS YET 
BEQ :BR I YE 
-DO DECREASING SEEKS 
6$: ASR CYLNOR s DIVIDE CURRENT C YLINDER BY 2 
ROL $THe ; faiate TALL BIT INTO CARRY 
ROL TMP6 ; »* ALL 
MOV #10. ,SCRACH ; ure TO 10(DEC) 
MOV STHPE STALLS ; ENT wae IN STALL WORD 
8S: CLR .CYLACRS) ; A 
JSR PC KE «16 co 
MOV cyt CYLN(RSS SET cv. NUMBER 
JSR EKER :st K TOC NT CYLINDER 
DEC SCRACH j DECREMENT LOOP COUNTER 
BNE :BR IF NOT TIMES YET 
BIT #BITO1,CYLNOR ;SEE IF DONE YET 
BEQ :BR IF NOT DONE YET 
MOV ST, STALLS :RESTORE DESIRED NO. OF UNIT STALLS 


g i seceseqeusanmmesoueorertoe ts Lao«E-™|m 
kT TEST 13 x ROTATIONAL LATENCY MEASUREMENT 
j ATHTS test MEASURES THE INTERVAL OF TIME BETWEEN 2 INDEX MARKS 
*IN A SINGLE DISK ROTA ION. THE SPECIFIED MAXIMUM ROTATIONAL 
; #LATEN cy = 2S MILLI-SEC + OR - 2.5%. THIS MEASUREMENT IS MADE 


12 
j [HEEEMEE Hat seenennaenaeeneeneeneneneecnennenneennennenneneeaes 
13: SCOP 
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5724 1630 012737 13 001324 nov BA3STREIN Pays TEST NUMBER 1 IN pPT MAIL BOX 
7 164 73 35 ISR PC’ CHKITR E IF ITER. NO. = 5 RE OR THIS TEST 
7 1 1 IMP TSti¥ * JUMP TO NEXT TEST 
i 16 7 752 pur HERE FROR CTSS. Test’s NTT iZe OR SYS 
25 156 Bo4737 fata ISR PC, FREPKB reine PASE TELE RED KBD The 
4 2 : 057 003133 TSTB 00 IM Eri TIMING Tests ARE AL 
7 1 1 ooo004 rr pre TO Rex em i 
a4 : 74 37 032712 26s: JSR PC, CALBRT ALIBRATE SOFTWARE TIMER 
7 7 : TST14 ; T FOR CALBRT 
538 15 pee 349 033204 3p PC, INIVRB 68 BOR BRI ROLES TO. BE USED 
57 1706 05037 003120 CLRB TSTING ; INHIB BIT at Che 12 
57 171 AbeDaS CLR R3 : int SERUNTER 
BS cise igre comes pour Meg T° Lam te cowl OLLI Ce 
at} 17e2 1 000125 oco001 Saye SBoccAD’ Pp. CRNOL (Re) >SET Me ConMBN 
ers 17 ba? 040316 JSR PC, DRVCAL : RTO Ser SET FORMAT TO 0 
744 1734 1127 000001 003120 MOVB si, TSTING *ALLOW ¢ 
5 - CHANGE FORMAT AND’ READ HOR TO Ft I 
57 021742 2s: CLR RO ; NI INTR INDICATOR 
oz bei7rad O22422 161066 MOV #RHEDHD,IRKVEC  ; eaiNne ER ADDRESS 
1752 1 CLR Ri : INIT ROTCATOR 
021754 goog29 000007 BISB #8.CFMT,P CSIH(RS T FORMAT | Bir T TO 1 
pe 1766 7 1 000016 BIS SCFMT,P°CSICRS) ; 
1 Gel 7 040606 J PC, STRCMD : Vv NT ofmanos 
7ee 774 oie 017774 V HOLDS, (Re) ; 1 WITH FMT Bit 
700 6S: TST RO : NTR REC. C’D YE 
oe oars74 ING Ri ; CREME ENT Tine oUF INDICATOR 
5 1 37 041704 7S: R Be REPSUP : “GORMAN REPORT 
2788 3he9 004737 044352 R PC’ TOPROC :GATHER STATUS 
7 XIT 


ooo: 
R RR 
Bi 
Be 
ss 
TERR 


ORMAT aNd READ HOR TO néncne ty 56'N NEXT INDEX 
R RO 


7 - CHANGE 
5764 005000 8$: ae i INTERRUPT INDICATOR 

5765 Geed3e L RY iT CYCLE COUN 

5756 1050 MOV RS,R1 i UWE P ADDRESS 

ob 2036 ooss42 nov RS, SCRACH 

25E8 Osehte 142761 oo00020 000007 BICB #8.CFMT,P.CS1H + ) ohPpene nT ro FORMAT BIT TO O 

5770 76 10000 o000i6 BIC aCFMT.P.C SICRL ) MENT aE oRnaT BL BIT TO 0 

577 1 0016 000000 MOV P.csitri) sAKes 1h TO FIND NEXT INDEX 
577 37 033150 JSR PC, TIMER EA THE TIME TO NEXT INDEX 

377 022072 O22010 75 URN ADDRES 

774 ;CONVERT MEAS’D CYCLES TO TIME AAD RCHECK ABAING MITS 

5775 g2207H 04407 G ; SAVE 

5776 2076 bbu759 034136 ISR PC, CNVTIM : CONVER AS’D CYCLES TO TIME 

5777 Oeel0e Oe2024 2285 tERROR RETURN ADDRESS 

5778 O2c104 0337 003176 ADD R3,SUMLO1 :ADD CONVERTED TIME TO SUM 

5778 O22110 005537 003200 ADC SUMHI 1 


SEG 0 
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CZR6MD.P11 10-JAN-78 11:48 


MACY11 — 
T13 lll 


Ht ose120 ors p9E332 ISR Cc ( #2) KBD INPUT 
es , .—” - ; COMPARE Re-R3 EER Hem niR ARO HA neh Events . 

7 Bssisd estat _ a RS," a IF > AN 

7 132 BLO 30S ?BR IF < MIN 

7 1 003212 CMP R3,MINILI :COMP_LO BITS TO LO MIN 

1 BHIS £5 arn ;BR IF > OR = MIN 
1 i 003214 30S: MOV INIH1 :SET NEW MIN 

5 ies Oe boae26 as, SS tein HI BITS To HI MAX 
era) fesise G46 ato ioe Te < fax 

? i o30 003216 enP R3,MAXIL1 85 a BITS TO LO MAX 
5734 atts rater BLOS A ts < = MAX 

ae Qeei70 10237 3220 34S: mov iy :SET NEW MAX 
Hei j SOMPARE "HEA? D iY ME T "SPECIFIED LIMIT 

022200 O20227 oc00000 14s: MINH 3C HI BITS TO HI MINIMUM 
1 Sur is$ :BR IF > MIN 
BL 1 ;BR IF < MIN 
1 057467 Cc R3, #MINLOL 7c E Lo BITS | TO LO MIN 
1 BHIS 18% oR. 
37 903170 16S: INC BLUMIN coun "oF TIMES BELOW MIN 
18S: CMP #MAXHI 1 HI TS TO HI MAX 


eS GR yt 8 TO LO MAX 


RRR 
Saas 
425 


Ses tnueeees 


Ss ezt 
b05297 003172 208: Thee MX1 fhe RENENT count Kor TIMES ABOVE MAX 
1 INC R ; NT TER 
Sais Seeeen pssue Roy SéRach, as ore Be reatkcree yer 
1 CMP #128. ,R3 ; 
eei4 O22260 001230 BNE Wi ITH MEASUREMENTS YET 
is ;DVIDE SUM BY 128. TO GET averact T tM OF 
5816 04 000007 MOV #7,R4 OOP COUNT a 
aH maine: 24s: cle anit ae DOUBLE-WORD a BY 2 
ees 5 _ Bee aoe gee IF WITH H DIVISION 
easy BS5305 BOT srt BNE 24S I Ne Bone 
p8ce TYPE TIMING MEASUREMENT RESULTS CIN N DECI 
S654 beeai2 paidae COCCLO 905770 BNE 3 ana CE REPORTS SHOULG BE INHIBITED ~~ SOTBITED 
5825 022314 104401 011577 TYPE yeorins Ber “ROTATIONAL TIMES :” 
2858 Baasse Boast Ee POPE MIN MEAS’ D TIME 
58c8 022330 013746 003170 MOV P BLAMIN. -(SP) GET CO TOF TIMES BELOW MIN 
2B53 e836 1paoT 012007 TYP BELOW i SORE “ OF 128 BELOW MIN OF ™ 
eu Rene lena, psale nov’ Weta meagre fgg awe 
2g 53¢8 pieegs 4234 JSR TTB hAN :TY — MAX SEAS’ D TIME 
cs 23 013746 003172 MOV AgvMXI. a T COUNT OF TIMES ABOVE MAX 
5835 Oe2362 i0440S TYPDS :CONVERT AND TYPE IT 
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4 1 1 o12044 TYPE ABOVE Ty 28 ABOVE MAX OF * 
2839 pS5384 tatty Bt 347 TYPE *L : LIMIT 


eee te 


ee fo AVG TIME 
TY iT «LF> 
36S: MOV AT. INTR, BRKVEC *RES RKOE HANDLER ADDRESS 


5841 Oee4i0 012777 045270 160422 
2eue 022416 177256 IMP ;PROCEED TO NEXT TEST 
Se4y H KRKAAKRAAARESAASAARAREAKARAARARERERARERARRERRRRARREEERRRAKRARRRAZELEE 
Bae S&SPECIAL INTERRUPT HANDLER FOR READ HEADERS IN ROT. LAT. MEAS. TEST 
CO eee ee eeT PKG INTR MOMLER 
5847 O22e422 005200 AHEDHO RO NTR HANDLER 
5848 Oee4e4 005762 o00000 ihe RKCS1(R2) SEE F CONTROLLER ERROR SET 
5849 Gee430 100002 B ;BR I OR 
58s0 2432 000137 045270 J . INTR *LET DRIVER PROCESS THE ERROR 
eee! 022436 d00002 2s: RTI TURN FROM INTR 
see 
2825 preeseesetennaessstRren acre tite MeN 
557 Hl SEL "OGRA TE receene Ma. e SREATDNs 2 ayacent 
ee0 Nate ie Are’ t EACH B hectita* 21,0 
5861 tATHE. SPE IFI er. y's 1S < a -SEC. 
5862 % SEEKS ARE TO phe ee use FoR THE sit 
S863 A. 8.8 88.08. 
Seee pesuue Brees? 00014 001324 Pit MOV #14, STESTN T TE R IN APT MAIL BOX 
5866 022450 737 0304 ISR pa es TTUP Ser iF Feat ot RROR 
5867 O22454 737 030530 JSR PC: ait R : FOR THIS TEST 
2868 022460 000137 022760 IMP TStis ;JUMP T 
5869 ; RETURN HERE FROM CHK TR IF TEST’S 5° 
58 022464 004737 027522 JSR NITSS s INI VER PARAMS AND SUB-SYS 
587 e470 004737 026040 ISR pe’ PRE SIBLE KBO INPUT 
387 74 105737 003133 TSTB potin iS IF aliens ESTS ARE ALLOWED 
5874 5208 Boa} 04 1$: ane aus :SKIP TO NEXT TEST 
2878 : 004737 032712 es: JSR PC, CALBRT ‘CALIBRATE THE SOFTWARE TIMER 
2878 1 ope TSTIS RETURN ADDR FOR CALBRT 
58 14 5589 JSR PC, INIVRB Ria vARTABLES USED 
58 11276 0117 ooo001 MOVB #StEK.P.CMND(RS)’ iat 
CLR P.CYLACRS) ; INIT 
5881 004737 O40316 ISR PC. DRVCAL DO INITIAL ° SPEK TO CYL O 
5e8e -MEASURE FORWARD SEEK TIME 
Bs gogan2 6S: INC P.CYLN(RS) ; INCREMENT CYLINDER BY 1 

pees 4 le SR PC, TIMSEK : MEAS! A SEEK T 

2760 TST1s j ERROR T AOR OR CALBRT 
5886 3550 137 003176 ADD R1, SUMLOL :ADD MEAS’D TIME TO FORWARD SUM 
588 54 537 ADC SUMHT1 
5888 37 3200 ADD RO, SUMHI1 
5889 2564 004737 036332 ISR PC’ CTLOUT ;CHECK FOR (*C) OR (¢Z) KBD INPUT 
5890 ;COMPARE FORWARD TIME TO CURRENT FORWARD MIN AND MAX 
5891 022570 012703 003212 MOV #MIN NELIORS ;SET POINTER TO CURRENT MIN AND MAX 


Ss SSS nc see eh 
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seatnade 
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SET SaR URE ORS 
ee ee 
ODO NEUE WHO 


EEE riae oa nayita 


fr 
fwrreo 


DDDDDDD0 0.0.0.0 
NOU 


2222 


022574 
OBBe04 


ise 
sits 


022760 
0ee7be 


10-JAN-78 11:48 ONE CYLINDER SEEK TIME MEASUREMENT SEQ Ol 
004737 033624 ISR MPTIM OMPARE TO MEAS’D MIN AND MAX 
;COMPARE FORWARD Pe tne TO SPEC’D Age L LIMIT 
020037 007220 CMP RO, MAXHI2 ; COMPARE HI BITS TO HI MAX 
103406 BLO 12$ :BR IF < 
1003 BHI 10s :BR IF > 
137 007216 CMP 1, MAXLO2 3C on BITS TO LO MAX 
1 1402 BLOS 12% *BR OR = 
o0523 003172 10$: INC ABVMX1 INCREMENT COUNT OF TIMES ABOVE SPEC’D max 
Ges BS 017760 oo0002e 12S: CMP L YevL, P.CYLNCRSS SEE IF IF LAST FORWARD SEEK DONE 
134 BNE 6 ;BR IF NO 
-MEASURE A REVERSE SEEK TIME 
goggde 14s: DEC P.CYLN( ; DECREMENT cyL BY 1 
7 le ISR PC, TIMS c :MEA A SEEK TIME 
e760 TST1s *ERROR RETURN ADDR FOR CALBRT 
1 003202 ADD R1, SUMLO2 ;ADD ME D TIME TO REVERSE SUM 
537 003204 ADC SUMHI2 
960037 003204 ADD RO, SUMHT2 
37 036332 JSR PC’CTLOU CHECK FOR | (tc) OR (¢Z) KBD INPUT 
;COMPARE REVERSE TIME TO QURRENT’ REVERSE MIN AND MAX 
012703 003222 MOV anINILe R3 NTER TO. TO CURRENT MIN AND MAX 
7 0336 JSR PC. CMPTIM + Et eARE D MIN AND M 
;COMPARE REVERSE TIME TO SPEC’D Ax IMIT 
929037 007220 CMP RO, 12 E HI BITS TO HI MAX 
1 BLO 1 
191003 BHI 5S : BR f ; MAX 
020137 007216 Cc 1, MAXLO2 : COMPARE Lo BITS TO LO MAX 
101402 BLOS 18$ BR IF < = MAX 
005237 3174 16S: INC ABVMx2 i INC COUNT OF TIMES ABOVE SPEC’D MAX 
005765 02 18S: TST P.CYLN(RS) *SEE IF LAST REVERSE SEEK DONE 
001343 145 >BR I NOT YET 
;COMPUTE FORWARD AND REVERSE SEEK TIME AVE 
013703 17760 MOV LeTcy R3 ;GET NO. OF MEASUREMENTS 
004737 033676 ni PC. GETAVG 3c TE AVERAGES 
;TYPE TIMING ME w! RESULTS’ CIN THAL ) 
032737 000010 005770 BIT aBITO ;SEE I MING TEST REPORTS SHOULD BE INHIBITED 
1257 3 BR F ORTS INHIBITED 
104401 011644 a ; - CYL SEEK TIMES” 
012703 012101 MOV seen R3 :GET POINTER TO MAX SPEC’D LIMIT MSG 
737 033770 JSR TYPT tug? :TYPE TIMING TEST RESULTS 
IEE fber eset’ fic The Meee ER tine an ove THe come 
:*¥THIS T MEA TRUE EK TIME IN BOTH THE FORWARD 
iF BE REVERSE “DIRECTIONS. AVERAGE Fhe CALCULATED FROM THE 
3 he a Tae = = (rica Boi )#T2(409)(2)+.. gain) ) 68> 126410)6410) 
IME TO SEEK X CY L NDERS. 
S SFORWARD Ano *REVER IMES ARE MEASURED AND TYPED, 
j KSEPARQTELY 
:"#THE SPECIFIED AVERAGE SEEK TIME IS < 38 MILLI-SEC. 
;* CYL 814 USED F 
A 8, Reem er 
oo0o004 +6715: SCOPE 
012737 oo0001S 001324 MOV #15, STESTN ;;SET TEST NUMBER IN APT MAIL BOX 
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eb bo bh he 


RESSSSSRRR 
SPO SERREDETERB ISTE 


R 
Ww 


8 BERR RERRRRS BREE 
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ee 


seaese 


4 
eee § 
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Ss 
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030462 
030530 
023316 


rv 


003133 


71 


is 


& 8 
= 
Moon 


a 


Ee 
furor 


-O- 
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E 
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MACY11 3GA(10S2) 
Tis 


000001 


ooss4e 


000002 


017760 


SEQ 0393 
SEQ 0114 


10-JAN-78 12:16 PAGE 115 
AVERAGE SEEK TIME MEASUREMENT 
ISR PC, SETTUP ;SET UP FOR LOOP ON ERROR 
ISR PC’ CHKITR ; SEE IF ITER. NO. = O FOR THIS TEST 
MP TStisb ;JUMP TO NEXT TEST 
;RETURN HERE FROM CHKITR IF TEST SHOULD RUN 
ISR PC, INITSS ;IN IVER PARAMS AND SUB-SYS 
JSR PC’ PREPKB : PARE OR POSSIBLE KBD INPUT 
TSTB DOTIM SEE IF TIMING TESTS ARE ALLOWED 
1$: IMP aus :SKIP TO NEXT TEST 
es: JSR PC, CALBRT :CALIBRATE THE ESF rwARE TIMER 
TST16 jERROR RETURN ADDR FOR CALBRT 
JSR PC, INI : INIT IABLES 
MOVB #SEEK,P.CMND(RS) iget SEEK COMMAND 
CLR P.CYLACRS) ; cYL = 
ISR PC, ORVC >SEEK INITIALLY TO O 
CLR NCYL1 SET T Narr CYLINDER 
MOV LCP1, SCRACH : INIT FICIENT TO 411(DEC)/814(DEC) FOR RKO7 
8S: INC cyl s ANCR DE TINATION CYL 
DEC SCRACH., sniimeennen” CREMENT COEFFICIENT 
JSR PC, TIMSEK ;MEASURE A FORWARD SEEK TIME 
TST16 +E TURN ADDR FOR CALBRT 
JSR PC, FDOTERM ; COMPUTE AND ADD A FORWARD TERM 
CLR pCYLN(RS) >SET To.9 
ISR , TIMSEK : A REVERSE SEEK TIME 
TST16 ; ERROR TURN OR CALBRT 
JSR PC, RVTERM ; TE A REVERSE TERM 
CMP NCYL1,LSTCYL >SEE IF ING YE 
BLT Bs : ms NOT 
TYPE GSEK : “AVERAGE SEEK TIMES” 
;DIVIDE FORWARD Y (410) (41057 (814) (814) OR RKO7 
MOV UMLO1, RO ;GET DIVIDEND 
MOV *R 
MOV : 
MOV UMH 
MOV HOLD6, RY ;GET DIVISOR 
MOV HOL 
JSR »M.OPID ;PERFORM DIVISION 
MOV * SUMHT 1 :GET FORWARD AVG 
MOV SUMLO1 
;DIVIDE REVERSE SUM BY (410)(410) 
MOV MAXIL1,RO ;GET DIVIDEND 
MOV MAXTIHI; Ri 
MOV MAXIL2; Re 
MOV MAXIHe. RS 
JSR PC, MN. DPID ; PERFORM DIVISION 
MOV Re, SUMHI *GET REVERSE AVG 
MOV R3, SUMLO2 
; TYPE FORWARD AVERAGE . 
TYPE F ; TYPE “FORWARD DIRECTION*### 
MOV &SUMLO1,R :POINTER TO FORWARD AVG 
ISR PC. TYPAVG :TYPE FORWARD AVERAGE 
TYP SPCDMX :TYPE “SPEC’D MAX IS 40000 US” 
; TYPE REVERSE AVERAGE 
TYPE , REVRSE ; TYPE “##*REVERSE DIRECTION**#*" 
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som gaaers BETO, puaeeR ee 
Geis Agia) lees: TIR® eB ss «FAMED sae Sig BRE T= wo000 us 


585 
Se 


08 
6009 
10 jsnagessenannccanesssntiee tt aasaeeTmCmCm 
e01 : tkTES athe EK i a 
6 1g j ATHTS ST actin a Om SEEK FORM Acre o os 
apt ee the Bnd It td RERSURCD eli me Pai HD REC ION. on 
6015 :*¥THE SPECIFIED MAXI MILLI-SEC. 
6016 ;* CYL 814 1 CHE 
pRiz r CYL 814.15 THE-LAST CYL FOR THE RK as 
1§ 53355 BrooS> 16 001324 trie: Vv 6, STESTN T TE R_IN APT MAIL BOX 
Bos saase poss pao4es Mex BART FGp SET ye P FOR’ LOGE ‘ON ERROR 
6021 3332 004737 030530 ISR PC: CHKITR NO. m 0 FOR THIS TEST 
Boge 023336 000137 Oe364e IMP TSti7 SEE Fol NEST TEST 
;RETURN HERE FROM CHKITR IF TEST’ 
6024 023342 004737 g27s22 JSR NITS s ; INITIALIZE DRIVER PAR are AND S uB-SYS 
33¢8 OBd3, 558039 iste Bi Re ire TP TIMING Ofek es “Kee ALLOWED 
330 1 ooo004 1S: IMP Ss I 1O- HEX TEST 
6029 4 004737 032712 es: JSR PC, CALBRT $e elere THE SOFTWARE TIMER 
4 ; TST17 ADDR FOR CALBRT 
Gib BEE SEIS aso IL? oc avee ARO VERTIS SPOR 
6033 023376 112765 900117 000001 nove BSEEK, P . CHND( RS) int! 
35 Oe 10 poao8s BOpaTe JSR Pe DRVCAL bh Fiat SEEK T9 TQ Gy O 
6036 023414 005037 ooSss4e seve cLR SCARCH 
38 023420 013765 017760 ooo002 6S: . “nov STEN, yah ;SET cyL = 632 OCT, 1456 FOR RKO7 
Bart ease 48 — 13117 ' i RROR a URNA KoA FOR CALBRT 
6041 1 003176 R1, SUMLO1 ?ADD MEAS’ B Tne TO FORWARD SUM 
6042 O23440 005537 903200 at, 
eo pS3uca wate 3 i Be? ¢ CrLoy } ; CHECK FOR | (tc) OR (#2) KBD INPUT 
@ 2 rene Enea CURRENT £ R FO -CURR NT MIN AND MAX 
at rath Baggs 993e35 . JSR icaPTtA om ae TER Ao. CU MIN AND MAX 
peg ge34 4 020037 007224 on ARE Ae aro, a Py -~ COMPARE HI BITS TO HI MAX 
6050 34 103406 BLO ia 
poet Besieg bbe 007222 ag MAXLO4 ae nak BITS TO LO MAX 
Bbe5 BSadad rake Sos Ale Tre OR o MAX 
6054 O23502 005237 003172 Bene vend Eh oa tINCREMENT COUNT OF TIMES ABOVE SPEC’D MAX 
3506 o0S065 o00002 jDse CLR .CYLN(RS) ;SET_C 
6057 Oe3S5l2 004737 033312 ISR PC, TIMSEK SURE 6 SEEK TIME 
68 023516 Oe3b4e TST17 ROR ETURN ADDR FOR CALBRT 
6059 023520 060137 003202 ADD R1, SUMLO2 :ADD MEASURED TIME TO REVERSE SUM 


SEE EERE A ge a ae ewe 
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005537 003204 ADC SUMHI2 

epee Gsses4 OBITa? baea3e Be’ et OUT HECK FOR (1C) OR (#Z) KBD INPUT | 

; COMPARE JRF VERSE F the CURRENT’ 4’ Saxo Ra | 


i cene49 ier o3 eee comme Nie RB RS iSboee ibid 4 ig. SURRENT N ee MAX 


Ime T9 SPEC’ D 


p0Eg eases res 007224 Bie nex TO HI MAX 


6070 3560 137 007222 a i ES nos COMPARE LO BITS TO LO MAX 
7 os ae iF = MAX 
3174 16S: NC 2 3 COUNT OF TIMES ABOVE SPEC’D MAX 
S42 188: INC SCRACH 5 ANE MENT MENT COUNT 
6074 76 OQee737 O00e00 ooss#e CMP #128. ,SCRACH 3 F DONE WI yee MEASUREMENTS 
core anaes COMPUTE FORWARD AND REVERSE SEEK TIME AVERAGES. ~ 
£5 E2608 12703 000200 sioe. i sort NO. MENTS 
1S acne, tans enn TYPE TIHNG MERSUAERRNY-RESULTS® CIN BEE TNAE) 
6 737 000010 005770 ’ BIT I cs ;SEE M TEST REPORTS SHOULD BE INHIBITED 
Bee SE ere aa MI oa al 
608. pS3e36 012703 Oleedl MOV WABOvES R3 ;GET POINTER TO MAX SPEC’D LIMIT MSG 
023636 004737 033770 JSR C, TYPTAS ; TYPE TIMING TEST RESULTS 


Tee Tp eee eertiOR ADDRESSING TesT 


| 
| 
" ? at TTEN, EACH WITH 
se a aes Ve as SORE Pe 


3e49 012737 17 001324 ii * fov #17, STESTN T TEST NUMBER IN APT MAIL BOX 
7. Bape JSR pe” abt Top UP FOR LOOP On arse 


aes 
fofon 
& 
nv 


bo38 go47: 930539 JSR P AIKITR Le IF ofNERT ; NO. O FOR THIS TEST 
e101 023666 004737 027522 = Hehe FRO INTTSS. Test’ SHOULD 8e Rus DRIVER PARAMS AND S 

cise Besere ares op0001 iSbe AGRTETE conoced* coF CATT Deri COMO | 

eioe 853502 TLasee H05 vate Move EG. B-SYEN( Re? SET FRACK © eer 

6106 20 0137 732 001174 MOV FC, Gs °SET PACK ADR FOR ERROR PRINTOUT 
fie fever Gigs, Bee Selle = iy EE 

61 1 5 CLARE 2 @SeCT(RS) ;SET SECTOR = 0 

6110 O23 0127) 063554 000010 RWBUF ,P.BALOCRS) ‘SET DATA BUFFER ADDRESS 

bill 023752 0127 177400 O000l2 at uty - oiceoke’ Pp HCCRS ) :SET WORD CNT FOR 2S56(DEC) WORDS 
ella 653584 O45 93 posted Toye PeRHAT” SOE TERING THE FOR San i 

6115 023770 Oo1002 BNE 4g :BR IF 20 SECTOR OF ORMAT 


icineceromseesedichsassigposnnch. ues aeecinetrie-nr~._, <i ce ese iiss ce miatmaacsatgiathatidinipimnaniiied Is 


CZR6EMO0 epee RIF 1 MACY11 |: mie 0- N PAGE 118 SEQ 
CZR6MD.P1il B-JAN-78- 11:48 sec TOR A ADDRESSTA TEST seo 6117 


ee | WRITE THe CURREN ae WITH vig Fee HUMBER + 109c0CT) 


1 4s: MOVB INTO RO 
7B He = 
i 7 16 JSR 
i Bogoo4 : 


COOrro 


(ocr) Yio CTOR NO. 
i HE I FER WITH SECTOR NO. + 100(0CT) 
WRIT! THe SECTOR on 
INC OR_NO 





i 
1 

i 
1 

1 

61 NC pc py CRS . | 
bi cne R3,P.SEC irs) SEE F bas T eTon WRITTEN YET | 
£1 Se 024030 001110 MOV 8. Serre. 3SET L RROR ADRS 

61 030462 ISR PC’ SE :SET_UP FOR LOOP ON ERROR 

61 000004 cLRE peSeCtcR ;INITIALIZE SECTOR TO O 

61 -DO WRITE CHECK oF 6 

61 ooo0004 8S: MOVB cages ,RO  ;GET SECTOR _INTO RO 

et reer #08 + AORO BURFER WIT SECTOR + 100(0CT) 
b13e GO011 000001 nove cartes SOSEC CMND (RS oh So alil be "hte 

b134 on , ; READ THE E SECTOR & ERBARE 1 THE e FOE MBER + 100(0CT) 

61 1 6 _— JSR PC Ta, CMD : OR INTO MEMORY 

e137 Oe4105 12701 baOsie Hoy aRUBUF RL ‘a a DAT a BUF INTO R1 

e138 BSatt§ ooss42 CLR BtRAcH ;IN mR C COUNT 

6140 1 000004 001200 MOV8 . SECT(RS) , SREG7 

pias i oocod2 005504 BIT #BS5ERR, RECODE i SEE IF BaD SECTOR ERROR OCCURRED 

e143 i 0 10$: CMP (R1)+ CO 2 TO.SECTOR + 100(0CT) 
6145 14, 737 ooss4e Pet SCRACH CHEEK cae 

pias BBut z 062105 BNee 4s bri?01+38 rOR UST DATAL Phe tsa. OR 

b1ug ran OLE 000005 063446 HOV , DF 2e5+2 $0. A ie AL 

6150 164 7 42 12S: INC SCRACH ? INC ig FOR ERR 

cies 1 32777 1 154742 BIT #8170, SHR ; E IF at “ERRORS SH SHOULD BE REPORTED 
bls 3 ae ooo012 ooss4#2 cn P Seis: i SEE F I10(DEC) ERRORS YET 
6155 i 1 001202 14S: MOV 4, $REGIO + FORD NUMBER 

6156 Gevels : 001204 MOV RQ SR *GOOD DATA 
61 7 Deve Ibis? 177776 001206 MOV tain’ thecie ;BAD DATA aoe 

pies 50 £93993 000100 154702 BIT #B1T6, ISWR SEE Fest ano RROR SHOULD BE REPORTED 
6160 001004 BNE 225 7BR IF J E OR SHOULD BE REPORTED 
6161 a 005204 20S: INC RY j INCRENEN D NUMBER 

6162 Ge4 022704 o00400 CMP #256. ,R4 is EE IF NBONE ne 

6163 001333 BNE 10 COMPARING YET 

6164 O24, 105265 oo0004 22S: INCB OPP. ECT(RS) t PNCREMENT SECTO 

6165 024254 120365 o00004 CMPB =s«aR'3, P.SECT(RS) SEE IF ALL SECTORS CHECKED YET 

b166 024260 001272 8s *BR IF NOT DONE YET 

cies 

6170 s os RERKAKKKAKAKKAKKAARRKARA SKK KR EAHA KLAREKRAKA RRA RKRE LALA KRARKRALAASAERE 

6171 ikTEST T 20 TRACK ADDRESSING TEST 


B10 


CZR6MDO RK611/06 SS VERIF 1 MACY11 309(1052) 10-J; 2:16 PAGE 119 SEQ 7 
CZR6MD.P11 10-JAN-78 11:48 TRACK ADDRESSING Fest see 0118 
e178 iat! THES TEC nS e"2 Sobol "ho EAEAMGE TatcK 8 £96, Pagn, YAPOS 
6174 : #WRITE CHECK fons Ts or ts THE WRtTES. THEN, EACH 
pie §8OT THE 2 FEL 70R iS Re -WeITTEN, TO Ano Be TER "FAH HRITE ACL OF THe 
r ah 004 } oe eepaaiprene se gyn nes amma att 
6179 Oe 4 012737 20 001324 MOV $20, STESIN ;:SET upeet NUMBER 1 IN apr MAIL BOX 
61 ? 62 JSR : 
6181 pSus7e 004737 030530 ISR PC ‘SHKITR IF TF ITER. NO. = OF ERROR FOR THIS TEST 
b18¢ 024302 0001 024516 JMP : 
61 ;RETURN HERE FROM nCRKITR IF TEST 5° 
6184 306 004737 O27522 JSR TSS ae DRIVER PARAMS AND SUB-SYS 
b18s Ossie 004732 alee ad JSR pe PREPKE ouND 8 unite’ POSSIBLE KBD INPUT 
tg 338 b1Soee 7 eels Hove BER OR OTLNC RO (RS) ;SE shits re - , 
61 332 10506 900005 CLR P. TREK UR) aH ui NO. TOO 
61 336 ii 76 216 ooo004 MOV; ora 6 (RS) 
61 344 012765 0625 000010 MOV EET RS) 2a SE ADDRESS 
6191 O2e43S2 O1 177400 o0001e2 MOV #256, ,P-WCCRS) StF wORD OR gg (0EC? WORDS 
6192 sWRITE THE TRACK NO. + 100¢0¢ A SECTOR Fao oF rRacKe 0,1 
6133 024360 116500 900005 4g: MOVB ei RCK ),RO sSET TRAC TRA 
6195 370 7 034304 JSR PC, LODSEC here Fd Poe H TAPS EK NRO. + 100(0CT) 
6136 04031 JSR VCAL : 
61 400 1 5 ava INCB P TRCK(RS) 1 an 
6138 Dewey 12276 000003 oo0005 CMPB »P.TRCK(RS) = j See I AcKs NOt TTEN YET 
61 12 i 5E3 BR IF NO 
;D0 A safle ove OF srt SECTORS Eten OF Bley THE pata 
024414 012737 O24414 001110 ;SET 
Gewsige 7 mee fe: Seriue :SET ie" ebeor Loo ON NCRROR 
7 4326 P CHK 


Ose ae “CHECK ALL 
nee a as ER. mbar Bread 


secnavenes 


O2e4444 105065 CLRB “Het : T TRACK 
eee 1 ROR: 6S: MOVB P TRCK( ),RO 5 eet TRACK a ON RO 
1 ADD ; 100( OCT) 19 TRACK N 
osi0 oa 0047 Batag4 JSR Saba, : LOAD res H TRACK + 1O0(OCT) 
ll 464 112765 123 ooo001 MOVB CMND (RS) ;SET WRITE DATA C 

b6ele de447e2 peas Rao L6 JSR ;RE-WRITE A 
6213 O2e4476 7 34326 JSR be? RVCAL ;WRITE-CHECK ALL 3 SECTORS 
6214 Oe4SO0e 105265 0000 INCB P. TRCK(RS) ;INCR THE TRACK a 
6215 O24 Asecee 000003 oo000s CMPB #3,P.TRCK(RS) ;SEE IF ALL 3 TRACKS RE-WRITTEN YET 
esis 024514 1355 BNE 6$ ;B8R IF NOT DONE YET 
6218 
6219 
6220 Oe4S16 RWOTST: 
6221 000040 RWT INX=<$TN-1> #2 :R/W TEST INDEX 
6222 ; pleesuaducueeudeuesueseeussuseuteuseuseuusenssusssasssusseencene 
6223 i éTe READ/WRITE DATA TEST 
6224 STHE TED WRITE DATA TEST HAS 2 DIFFERENT VERSIONS, DEPENDING 
psce 2 ON THE VALUE OF THE DATA PATTERN PARAMETER (PT 


: 
:* FOR PT=0: 


o 
ru 
™ 
N 


ESREMD- PI! 1B-AN-98 11:48 


be44 


PSRAC SAAN ty unc ae Gita inte d dg 


ae 


S006 
oig73 


13737 


C10 
RACY 291052) pe AB JRYTZ% ath Hes 120 


001324 


154354 


ooss44 


000010 


000012 


000010 


7 
oo0S602 
4 O00S604 


Freweti Mas 


oe Ley ie ipsa tices 


YA wat teen Boer tae MERTEN feasts Oat 


S SSECTORS EACH cky Re bo, ne ao SPIRALING OCCURRS ON THE L 
j ¥SEGMENT BRITTEN ON EACH TRACK. 


ote TIONS ON THE E 
SEY ESSERE SEGCVED AEA Doh of de EUReEnd” Bebe br ERE Bate 


Fay dae COREA, TH 18 13 Leet EOF ALL tHE SPEC*D BF PORE ON ALL 
Sty R DATA 

iHearteme cogsth Th Peasreten Pr, ex, an HPs ME PROUE, OPERATIONS 

oe et, bin at 4.3 


BE < vo = LT. 
; at Mee é (INS aa Le ie eet EnOER TO 


% 
5 #0 AIN s tL 
ee 


+éT3 SCOPE 
MOV 1 STN T TE IN, per MAIL BOX 
More sertop SET yp FOR LOOP On 
ISR PC’ CHK E VF ITER. NO. = g RE OR THIS TEST 
RETURN JRE FROM CHK TR. IF vest’ MOULDS ats " —- 
- ish BC, Int Tes s INI “DRIVER PARAMS AND SUB- SYS 
CLRB x OYLAD 5K INT Po Reis B inoie Batre 
BIT S, aSWR ; via WRI NH none ie 
2s aoe be RN eee bl a oe oon ae 
: TST PT’ F QUI RI Y_ DATA TEST DESIRED 
ee See ear 
;SET PARAMETERS FOR QUICK VERIFY’ 
MOV sRWBUF peocnsh re FER. ADDRESS 
CLR p- SxLnt 2 
ds: oo of 3, a 3 Titick 1 iA FOR 6 SECTORS 
; CLRB Pp se (RS) fae 
6S: SR PC, CHKLIM ‘ane r ano PACK ADR TO AVOID OVERFLOW 
308 oe N ADDR FOR TRANSFER NOT ALLOWED 
4ST PARAMETERS FOR NON-DEFAULT inne Seer 
BE Ruger a fe B1TE SoS 
BIC etter RO FOR Lo e eeits 
BISB RO, P.BAHI (RS) CET BA BITS 1 
MOV MA’ PMA SET BUFFER abBRESs 
MOV MA+2, PMA+2 





SE0.0898 19 | 


D10 
PAGE 


CZR6MD0 RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 121 SEQ 0399 | 
CZR6MD.P11 10-JAN-78 11:48 T21 READ/WRITE DATA TEST SEQ 0120 
024704 105237 003134 INCB XOVLAD ;SET XXDP_OVERLAID INDICATOR 
924710 005732 055716 TST Til E_IF Me MANAGE MENT PRESENT 
;PREPARE PAGE Ss -REGISTERS ibe het bearto ON ° 
024716 004737 026604 I P PAR ;PREPARE MEM MGT FOR RELOCATION 
gJNITIALIZE TEST ARBRE? TE 
024722 013765 005732 o00002 : FC,P.CYLN(RS)  ;INI 1T CYL TO FC 


1 t paMeT PeINiS PRITERN Se SELECTED 
i 1s See with 


a 
28 

S Bars 
ae 
rr. 
zz 


CE | 
pee 
EiS 


eos iBR IF RNS CHECKED ON THIS CYLINDER 
, 
Gere lies Gearie gma ie: ie ebm NTIS te to re 
Gevrse fossee Gpscrs OOONE 7S Rey ieee 
Gesone BGa, Oe day _PevOnidin [Ain MBO AZsPOnPRlnPEn "tof REPOS E™ 
-PERFORM TESTS AT CURRENT ADDRESS 
Siege 2 eee Ae ee 
7 J * PODBUF et pata Th a nk BUFFER® 
pS2038 Bo8040 184100 Sere BEE FB oe fa iF ba SET ARIBITED 
231? 973988 000123 000001 ROvB SURDATA, P. cMND (RES EET eevee 
p33 Q 2777 1S540S6 20S: art gto aan ira He fee INHIBITED 
6315 112765 000131 000001 MOVB &WRTCHK,P.CMND(RS K 
B5 Bera? fe oe aa 
¥ 
e313 ie 3 oooo02 154026 ad Ee pone SHOULD BE DONE 
eS1i2 001417 BEQ 245 ; 
£358 ratte 681013 000010 154016 228: BIT 3472, 050R i SEE at Pe eo INHIBITED 
6324 O5e132 bo 737 eee uate TORS PC ORNSER cnn RS t 
6386 Bie é 153774 BIT gBiTe, OSHR ; Ear eoPron COMPARES INHIBITED 
£354 ies 9Oc5 136 ous: Tete But Acs ™ ieee’ SF ACCESS DATA Testo 
£350 GeeieD op a7Ee 40 000001 ROVE RE P.cMnD (RS UT ORI ET EASE COMMAND 
past Gesige Obere? BAAI ee es ASLERSE TE ORTVE oe oy canon 
6333 pee174 9057 2 005760 . ci pT iste Ir "GurIck VE VERIFY y pera T TEST DESIRED 
6335 oesene os 76s pa ba j INCREMENT PACK ace rsect Rs euch VE Seti es % DATA, TEST 
6 10 126527 000 000030 CMPBEs«éP« SECT(RS), #24. ; ane IF SEC OR eras REACHED YET 
6338 O25216 O0200e BGE 345 :BR IF L XCEEDED 
6339 025220 000137 024636 IMP 6S GO BACK TOND Fest 


eee 


oo 
BSR 


fou 
“ 
wre 


637. 





025430 
430 000004 
4 237 
4 137 
442 
O5eus0 605037 
4 37 
0eS4S4 005037 
025460 Se3 
OeS464 042737 


CZR6MDO RK611/06 SS VERIF 1 
CZR6MD.P11 


1 


10-JAN-78 11:48 


SEEDS 
spies 


024620 


Teeeg? Boa0s 


oc 
008738 
bo0od2 

730 


736 


730 
134 


027262 
003144 
172516 


MACY11 30A(10S52) 
Tel 


oooo00s 


oo00de 


ooo004 
o00sSS2e0 


005734 
ode 
734 


ooo0de 
00S734 


153474 


001326 


DUNPAS : 


El 
PA 


-SBTTL END OF PASS ROUTINE 
een ger go Wee 7 oo nn ataaiiarees aaa tate 


 KINC 


UP here & 


;*IF THE 


SEOP: 


INC 


ASS NUMBER 


10-JAN-78 12:16 GE 122 
READ/WRITE DATA TEST 
34S: INCB P. TRCK(RS) ; INCREMENT TRACK 
CMPB #3,P.TRCK(RS) SEE IF TRACK LIMIT EXCEEDED 
Ea eS :BR IF YES 
36S: INC P.CYLN(RS) ; INCREMENT CYL 
CMP LCP1,P.CYLN(RS) ;SEE IF CYL LIMIT EXCEEDED 
BEQ 30s :BR IF YES 
; INCREMENT PACK ABDRE S FOR. NON-DEFAULT DATA TEST 
40s: ADD rs P. SECT ; INCREMENT SECTOR BY IS 
CMPB SEC thes :SEE IF 2 EXCEEDED 
BLE 1 7s :BR IF NOT ver 
MOVB P.TRCK(RS),R3 GET TRACK 
IT,R3 : INCREMENT T 
MOVB R3;P.TRCK(RS)  ;PUT iT BACK 
CMP R3‘LT *SEE IF LT EXCEEDED 
BLE 16$ ;BR_IF NOT YET 
IMP 11s ; JMP T9 CHECK FOR NEXT PATTERN 
ess: CMP C.Lc > SEE I 
BGT 26$ ?BR IF FC>LC 
ADD IC,P.CYLN(RS)  j INC NT THE CYLINDER 
CMP P.CYLN(RS),LC ; SEE F LC EXCEEDED 
BGT 30$ :BR IF LC EXCEEDED 
26S: SUB IC, P.CYLN(RS) ; DECREMENT THE CYLINDER 
Cc P.CYLN(RS),LC ;SEE IF LC EXCEEDED 
BLT 30$ :BR IF LC EXCEEDED 
30S: TSTB XOVLAD ;SEE IF XXDP MIGHT BE OVERLAID NOW 
BEQ 31S :BR IF NOT 
JSR PC, GETXDP :RESTORE XXDP_ LOADER IF SAVED 
31S: TSTB UBMPRS :SEE IF UNIBUS MAP PRESE 
BEQ 32S :BR IF NOT 
nom CLR a#SR3 ‘DISABLE 22-BIT MODE AND UNIBUS MAP 


(S$PASS) 
Wire {Ene Re XXXXX IS A DECIMAL NUMBER) 


SDEVCT 


MP NEWOR 
- THIS IS TRULY THE _END of A PASS 


aSTK 
STIMES 

SPAS 

#100000, $PASS 


gatas 0 APTPAS 


5 INCREMENT DEVICE COUNT FOR APT 


iOZERO THE TE Sr NUN rer 


32 THE NUMBE ROOFS TTeRaT10NS 
i INCREMENT sig PASS NUMBER 
;;DON’T ALLOW A NEG. NUMBER 


SEQ 0400 
SEQ 0121 


F MORE DRIVES TO TEST ON THIS PASS 


CZR6MD0 RK611/06 
1 10 


CZREMD 


ere 


Beets 


rer 
uO NOUN £ Wt 


COCO Trrrrs 


PP PRLS SS tS 
_ 


COrro 
a 


-Pll 





377 
Qaedke 
1501 
ooo001 
001326 
001102 
017014 


010000 
042164 


oocoo1 
005510 


ooss40 


O44342 


MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 123 


000 
042116 
020123 


001340 
oooode 


000020 


END OF PASS ROUTINE 


DEC (PC)+ ; ;LOOP? 
SEOPCT: .WORD 
BGT SDOAGN ;;YES 
soenee MOV (PC)+,a(PC)+ : RESTORE COUNTER 
” §EOPCT 
TYPE SENOMG 3; TYPE sENe Pass #” 
MOV $PASS,-(SP) :; SAVE S FOR TYPEOUT 
TYPE> . SENUL $i eO ee arr coemactER, et SIGN 
S$GET42: MOV ast2 RG GET MONTTOR ADDRESS 
Be SeT SOORGN t BRONG THE WORLD 
SENDAD: JSR PC, (RO) ::GO TO MONITOR 
NOP ;; SAVE ROOM 
NOP ;;FOR 
sporcn: " sittings 
"IMP a(PC)+ ; ; RETURN 
NAD: .WOR' APTPAS 


‘ -1,-1,0 -;NULL CHARACTER STRING 
"ASCIZ <15><12>7END PASS’ #7 


APTPAS: CMPS #APTENV, SENV ;RUN UNDER THE APT ? 


BNE 2s :BRANCH IF NOT 
CMP SPASS, #2 :TWO PASSES ? 
BLO 2 :BRANCH IF NOT 
1S: INC STSTNM INCREMENT THE TEST NUMBER 
BR 1 ; LOOP NG FOR APT TO DUMP NEXT PROG 
2s: IMP WPAS :JMP TO MAIN LOOP 
;THIS IS THE ABNORMAL RETURN FROM THE DRIVER 
: WHICH IS USED WHEN NED INDICATION IS EXPECTED (AND VALID). 
: (NED = NON-EXI TEN DRIVE) 
NEDHDL: BIT #NED,P.CS2(RS) ;SEE IF NED ON ORIVE SELECT 
BNE 1$ :BR IF NED SET 
IMP ERRHOL :GO HANDLE OTHER ERROR 
1S: MOV RO, -(SP) :SAVE RO,R1 
MOV R1;-(S5P) 
#1,RO ;SET BIT POINTER 
CLR R1 CLEAR COUNTE 
2s CMPB R1,ORIVE :SEE IF Ri = CURRENT DRIVE NUMBER 
BEQ 3$ ‘BR IF = 
INC R1 j INCREMENT COUNTER 
ASL RO ‘SHIFT BIT POINTER 
BR 2s : TRY AGAIN 
3S: BIC RO, NEWON :CLEAR ONLINE BIT FOR THIS DRIVE 
MOV (SP)+,R1 :RESTORE RO,R1 
MOV (5P)+’RO 
IMP RETNML ;TAKE NORMAL RETURN 


fp RRR ER RRR ERE EEK EE EEL R ERE RE RAE R ERLE LAER ERA RAE RRL REE 


SEQ 


0401 


SEG Ol2e2 





len eine 


CZR6MD0 RK611/06 SS VERIF 1 


CZREMD.P11 


10-JAN-78 11:48 


005077 


082797 


000207 


139600 
000172 
000141 


000040 


012426 
000100 153166 
000032 
012433 
o0002e 
012440 
000007 
0124Se2 


bbr3i8 


153102 


8067008 153066 


GLO 


MACY11 30A(10S2) age 4 12:16 


1 
KBOHDL - TTY KEYBOARD 5 ENTERRUPT HANDLER 


.SBTTL KBOHDL - TTY KEYBOARD INTERRUPT HANDLER 
a gm a Rem or= 


KBDHOL: MOV R1,-(SP) 


Bre oFiee,8 iREBD & 8 CHAR Aa EROR K80 BUFFER 


CMPB Rl, #172 : SEE IFU LOWER CASE TYPED 
BGT :BR IF NOT 
cnPe #141 
T $ ;BR IF NOT 
208 Bay Red TRtCHR i OE Ineur€ SR ARRCTER 
CMPB BOOS RI iaee I (#0) TYPE 
BNE : uae NOT ¢ tC) 
YPE CNT tECHO (#C) 
1$ BIC &BITE, ISTKS ‘CLEAR KBD INTERRUPT ENABLE BIT 
MOV (SP)+/R1 ; STORE R1 
RT > RETURN 
2s: CMPB #032,R1 :SEE IF (#2) TYPED 
BNE 3$ :BR IF NOT (2) 
TYPE CNTRLZ iRefumy'~ 
3S: MPB #022,R1 'SEE IF (tR) TYPED 
BNE 4 :BR IF NOT (tR) 
TYPE CNTRLR 5 ECHO (#R) 
BR 1 : RETURN 
4S: CMPB #007,R1 : gE IF (#G) TYPED 
3 5 NOT (tG) 
YPE NTRLG *ECHO (tG) 
Ss OF NTCHR BED T 
TYP CRLF 155 Pe ie LS <LF> 
BR 3 ? RETURN 


SBT PREPKG~ "PREPARE FOR KEYBOARD INPUT "0 SSO SuSSSSSSSS 


US OBROU ine” SEEaRS OE CEVEGRRD BOPPER ano ne 
pal tn Phe SbREF Ton Fok veANTes YNPut YT AcSo 


+h “ISR C, PREPKB 
onset acess EEC Bseeenenernereenennnernennnsn 


PREPKB: a8 aSTKB LEAR KBD BUFFER AND DONE BIT 


INT CHR ‘ee TTY INPUT WOR 
Bre pat 6,a$TKS re KBD INTERRUP 


eee a eee 


‘48TTL ECOBAD - ECHO BAD TTY I 
:*THIS SUBROUTINE ECHOS A CHARACTER WHICH HAD BEEN 


"F950 G123 


CZREMO0 RK611/06 SS tad 1 
JAN-78 11:48 


1 o00SS32e 
1 001314 
07 


PEE? pesa7e 19wO? 
fe ile Gere Best 
HID Gace Seis 
Ge Gebiay muazey ose 
4 33 142 

aT 
a ae 


Bieeeeee 


N Lee ee 


Peed 026204 00 

GEES ESESIG Geile ooo” 

b5s8 026216 112737 000001 
0262 104401 007413 

feel Eeree fier aus 

6563 Oebe4O 004737 053736 


H10 
MACY. 39854052? 465"BS”Prv!fidr PROE 125 


0SS716 


006126 


003144 


eo Pe diay 


;#TYPED IN AND WAS DETERMINED TO BE INVALID FOR SOME 
;# SON FObe Re®Y A QUESTION MARK (7). THEN, A <CR> 
;# F> ° 


;# CALL J PC ,ECOBAD 
35 aE AEA AE A SE A a a a a a a a a a a a aa aa aa 


ECOBAD: TYPE , INTCHR ;ECHO BAD CHARACTER 
TY Ss ; TYPE <?> AND <CR>, <LF> 
RTS pc : RETURN 


3 tae = At ae aT 
Tate. noky CALL NG SUBROUTINE $SIZE, AND 
pert THE VALUES RETURNED, TO SET THE LIMITS ON PARAMETER ma, 
. = Sl JPRS , 

i SAno Sets FL = 1 IF 22 Ss D ents 2B}: 
= > RERKRKRERERLERERERASESERSESRSASASSAEKAASERKRARERAARSRRRARARARSREREE 
StZMEM: SAVREG ; - 


; SAVE RO 
MOV #200, SKT11 ;SET MEM MGT KEY FOR SSIZE 
134 pC SoIze : F Men T SENT 
BMI 3§ ; if MEM net PRESENT 
Rey ARSTCRSM" SEES a hut ars 
16$ :G0 TYPE as book se 
AgHIFT SAF LEFT 6 fit PUT IN RI-RO . 
: CLR a . ih? Bite 
MOV Re :SET LOOP COUNT = 6 
12$: cLe a :ROTATE LOOP 
ROL mo 
_ 
;ADD VIR ADD: FS TO SHIFTED SAF TO GET PHYSICAL ADDRESS 
: : Abo $L fab rd ; ADD Co BITS 
nOY Ro MAHILM pay ers TS OF MEM LIMIT 
nov R1; MAHILM+2 i BET be Bite OF MEM L Met 
Ror ORY 
ao OR 
ROL Ri 
ROL RO 
Cop Rt 837 ;SEE IF 22 BIT ADDR 
BLO bs i BR if Nb 
MOVB #1, UBMPRS ‘SET “UNIBUS MAP PRESENT” FLAG 
-TYPE “LAST PHYS MEM ADR = XXXXxkXx" 


STYPE “LAST PHYS MEM ADR =" 
!PUT POINTER ON STACK 

:CONVERT BINARY TO OCTAL ASCII 
; TYPE “XXXXXXXxX" 


les: TYPE 
MOV 


ISR PC’ J#SSUPRS 





110 


CZR6MD0 RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 126 SEQ O404 
CZREMD.P11 10-JAN-78 11:48 ECOBAD - ECHO BAD TTY INPUT SEQ 0125 
6564 O26244 104401 001315 TYPE , SCRLF ;TYPE <CR>,<LF> 
6565 Oe6250 104401 001315 TYPE *SCRLF 
65 026254 154410 RESREG ;RESTORE RO-RS 
6567 O2e6256 000207 RTS PC RETURN 
6568 
be90 
6571 pre een TIPUT A SDC DIGIT OCI NO ON TTY K~D 
6572 tk GE - INPUT AS X-DIGIT OCTAL NO. ON T Y KBD 
6573 ENTER SU “SUBROUTINE WITH OLD PARAMETER VALUE ON STACK. SUBROUTINE 
po7d Pika & OLD VALUE, AND INPUTS NEW VALUE, RETURNING NEW VALUE ON 
657 fh eh A 1... Ee 
65 026260 016646 o00002 &ETPRM: MOV 2(SP),-(SP) ;GET OLD VALUE 
65 026264 104403 TYPOS : TYPE IT 
65 026266 006 .BYTE 6 :SIX DIGITS 
6 Gebeb/ * BYTE : SUPPRESS LEADING ZEROS 
bo81 104401 007623 TYPE NEWMSG :TYPE ” NEW =” 
65 74 004737 030624 ISR Pc, RDCHRS *READ NEW VALUE FROM KBD 
6583 75 5 #0) RETURN RESS 
6584 75 2(¢2) RETURN RESS 
6585 3 75 :(#U) OR ERROR RETURN ADDRESS 
6 700 TST RO jSEE IF ANY CHARS TYPED 
65 1 100 BNE $ IF YES 
65: 1 RTS PC ; RETURN - OLD 0 VALUE UN UNCHANGED 
6589 4 oooo0s 4S: CMP RO, #6 E IF > 6 cH 
6590 BLE as BR IF NOT BAD 
659 1 1 o0S27e2 6S: TYPE , BUFFO iEC INPUT 
65 104401 001314 TYPE SQUES 
6593 716 oOo00010 7$: SUB 810, (SP) FIX RROR RETURN PC 
6594 RTS PC RETURN 
6595 Ole 005272 8S: MOV #BUFFO,-(SP) jBUT UT POINTER TQ CHARS ON STACK 
65 737 OS2464 ISR PC, OCTBIN ONVERT TGIT Q BINARY 
65 026350 02632 63 ERR 
6598 Oe635e 0126 MOV (SP)+,RO T NEW BINARY OBL UE 
6599 026354 005737 oOS2616 TST $H10ct SEE IF HI BITS ARE O 
6600 026360 1360 BNE og :BR_IF_ NOT 
6601 Oe6362 010066 onD0002 MOV RO, 2(SP) :PUT NEW VALUE ON STACK 
bb0e 026366 000207 RTS PC : RETURN 
eeos 
Hay] : - PERKS RERAKLEKRERRERAERRRRARLRRKRARARKREKKRRRRRRRRARRRRE RRR H KEES 
66 BTL GTSWRG - OPEN SOFTWARE |S SWITCH REGISTER FOR MODIFICATION 
6608 THIS SUBROUTINE ALLOWS THE hed NTS OF THE SOFTWARE SWITCH 
6609 f AREGISTER TO BE MODIFIED BY TTY THE SUBROUTINE TYPES 
6610 "SWR = XXXXXX NEW = WAITS FOR A NEW OCTAL VALUE 
6611 i SOF UP TO SIX DIGITS TO "BE TYPED. 
b6le = REGEKKESLKKRERRARRSERAEER RARER RRARRRERRRRERERERRRRRRRRRARRRHEKRAKKE 
6613 026370 022737 000176 oo114o étswrc: CMP aSWREG, SWR EE F SOFTWARE SWR SELECTED 
6614 026376 001010 BNE 65 T 
6615 O26400 013746 000176 MOV SWREG, -(SP) UT OLD VALUE ON STACK 
6616 O26404 104401 007614 TYPE ‘Ty YPE “SWR = 
6617 O26410 004737 O26260 ISR PC. GETPRM :TYPE OLD, GET NEW SWREG VALUE 
6618 O26414 012637 000176 MOV (sP)+, SWREG ;STORE N NEW VALUE 
6619 O26420 000207 6S: RTS :RETUR 
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6620 
eeSe 
6623 je ee HE HE SE AE HE HE SE aE Ea HH HH EE ERE EE 
6624 ; RIN NITMM - SUH INE TAT NT REGISTERS 
6625 ;# THIS SUBROUT I INE INITIALIZES KIPAR’S AND KIPOR’S, FOR 
66 ONT TGUOUS AGES STARTING AT AT Perales He ADORESS O. 
66 Hire 7 1S LOADED WITH THE 170 PAGE. 
6628 *22-BIT AND THE UNIBUS "PRE ENABL. IF PRESENT 
b629  xBUT MEM MGT IS NOT eT URNED ON IN THI SUBROUTINE. HOWEVER, 
6630 :#MEM MGT T ARE E 
6632 4h 51a yt 5 tee hahheetalatatatinie++7—iat + tat> tnleaiaaalaialaiaiaiaiaiaiaiaiel 
6633 g26ee 104407 thITMM: SAVREG $8 
66 4 o0S001 Ri NIT FOR LOADING 
66 Oe6426 012702 172340 MOV #KIPARO, R2 :ADDR OF FIRST PAR 
6636 432 12703 000010 MOV #8. ;LOAD 8 PAR’S AND 8 POR’S 
663 436 Ole762 077406 177740 4S: MOV #77406,-40(R2) ;PDR = 4K.UP,READ/WRITE 
6638 444 O10122 MOV R1, (Rej+ L A PAR ’ 
66. aig I oo0200 ADD we00, Ri : TE FOR NEXT Pi 
6640 3 DEC R ;DECREMENT LOOP COUNTE 
664 454 = BNE 4g ;LOOP UNTIL ALL 8 ARE LOADED 
664 4 1 177600 MOV #177600,-(R2) 5 SET K bane FOR 1/0 PAGE 
664 105737 003144 TSTB UBMPRS ;SEE IF 22-BIT ADDRESSES 
bea Depyes 601403 BEQ 10$ :BR IF _NOT 
45 0264 0127 000060 172516 MOV #60, a8SR3 *ENABLE 22-BIT MODE,AND UNIBUS MAP 
6646 026476 012737 OO01000 177572 10S: MOV #81tS, a8SRO :ENABLE KT11 TRAPS 
6647 O26504 104410 RESREG ;RESTORE RO- 
bb48 026506 000207 RTS PC : RETURN 
eee 
6652  REKERRRAERRRRRRRAKKRERRREARER EKER RARERRRRRKLARRARKRAHRKKK 
6653  ESERVICE ROUTINE FOR MEM TRAPS 
6654 = PEERAGE KEAERRRREKRERRRARAARARRARARERRRA RARER RRR ERRKRKRAKEE 
6655 026510 004737 041704 ktERHD: JSR PC ;GATHER STATUS FOR PRINTOUT 
66 514 D132 177572 001174 MOV é *GET SRO 
66 13737 177574 001176 MOV : Ger SR1 
66 o1 7 177576 001200 MOV 8 G : SRe 
665 127 O2656e 000004 MO :SET TIME-OUT VECTOR 
6660 544 O1 000340 0006 MOV > JSERRVEC+2 
bbb] Bee 14 172516 O01202 nov . 4, SREGIO ;GET SR3 
6663 8s: CMP (SP)+, (SP)+ ;CLEAN UP STACK 
6664 2e4 ti 3853 063526 MOVB #3, OF 30+18. :FIX PRINTOUT FOR NC SR3 
6665 0265 105037 062201 CLRB DH704+11. 
B66 0265 104121 10S: ERROR lel ;KT11 FAILURE 
334 0266 000137 044134 IMP HL TPRG *ABORT !!! 
cere 
6671 = SEKDRKSRARKESARRKAERAAERRLAARARLAEKKAERLRAARAAARRRARARAARHKRAAAAEKKK 
6672 ‘ kPR REPAR - PREPARE MEM MGT FOR RELOCATION 
6673 } ¥THIS SUBROUTINE CALLS INITMM, AND THEN SETS UP CONSTANT 
6674 *xFOR KI PARS IN SAVPAR, AND OADS THE UNIBUS MAP REGISTERS, 


6675 ix IF PRESENT 


taal at at tater at at stat at aa 
2 BS SAAS 


Raat at at ats 
BIRR Lo 


SoCeee 
Baos 


RE 


6707 


5 
BOF 


NNNNNNNNN 
bt bs RO be bP ft he be pe 
WONMU£ WH 


CORSO SKOKTrKT 


CZR&MD0 RK611/ 
CZR6M0.P11 





O06 SS VERIF 1 
10-JAN-78 11:48 


[=] 
_ 


~ 
— parerer=4 
8- 8-82 
—— OC 


on 


Bo= 
8 Boy 


oo 
be ee 
83 
oO 
i) 


gee 
gage 


Nne 
SSAA 
Nouw! 


Oeb4ee 
005602 
017777 
o0s604 


006130 
160000 
006126 
006126 


o0000e 
006000 


K10 
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000010 
000007 


OOSS46 
157776 
ooss46 


OOSS46 
OOSS46 


WRG - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION 
= + RKKKKKKEKRRRRRERRLAAALARARRRERKKRAARAAEAARALARREALAAAARARAHRARAHRAHRAAEE 
PREPAR: SAVREG ;SAVE RO-RS 
ISR PC, INITMM : INIT nen MGT REGISTERS 
TS OF MA 


MOV PMA, RO : 
BIC #17777,RO *MASK FOR BITS 13-15 
+ ‘HI BITS OF MA 


MOV PMA+2,R1 
R3 


a 
MOV RO, :SAVE THESE BITS 
MOV R1,R4 
ROL RO ;GET MA BITS 13-21 INTO RI BITS 7-15 
ROL R1 
ROL RO 
ROL Ri 
SWAB Ri 
ROL RO 
RORB Ri 
MOV R1, SAVPAR ;CONSTANT FOR LOADING PAR6 LATER 
TSTB UBMPRS ?SEE IF UNIBUS MAP ENABLED 
BEQ 95 :BR IF NOT (NO UNIBUS MAPPING) 
;PREPARE FOR 22-BIT ADDRESSING -' LOAD UNIBUS MAP REGISTERS 
MOV #MAPLOO, RO ;STARTING ADDR OF MAP REGISTERS 
MOV #31. ,R1 *SET REGISTER COUNTER 
4S: MOV R3, (RO)+ :LOAD A MAP REGISTER 
MOV R4’ (RO)+ 
Abe ae6000, stoneallacitaimignes 
SOB R1,4S *LOOP UNTIL 31(DEC) ARE LOADED 
BIC #160000,P.BALO(RS) ;CLEAR BA BITS 13-17 
BICB #3,P.BAHICRS) 
9S: RESREG ;RESTORE RO-RS 
RTS PC : RETURN 


5 5, HME EAE AE A HE Ab AE A a a a HA a HH HH 
jk ENOXDE - FIND STARTING AOR OF XXDP LOADER , AND STORE IT 


N ° 
HF eee tee te LI TEST Hi Bite OF UPPER MEMORY LIM 
MAH + 


FNDXDP: ist ne TEST HI BITS _OF UPPER MEMORY LIMIT 
4S: nov 8160000, XxDPAD oF aA bE Bak 18°END OF XxXDP 
6S: CHP MAHILM, #157776 ; SEE IF MEN LIMIT > OR = 157776 
MOV MAHILM,XXDPAD HI MEM LIMIT IS END OF XxDP 
ADD #2, XXDPAD :ADD 2 BYTES 
8S: SUB #6000 , XXDPAD :COMPUTE START OF XXDP 
RTS PC RETURN 


5 5 26 HAE EAE eA 0 A ab A A a 0 aH a a a a a a a aa a 
; #CHKXDP —- § CK_FOR JrmaNent OVERLAY 96 AXDE LOADER 
;*THIS SUBROUTINE DETERMINES IF CURRENT MA AND WC COMBINATION 
;*#WOULD CAUSE OVERLAY OF THE XXDP LOADER ON A WRITE T 


;*IF SO, AN ATTEMPT IS MADE TO MOVE THE LOADER INTO UNUSED MEMORY . 
:*IF THIS IS NOT POSSIBLE, A RETURN IS MADE TO THE ADDRESS 





SEG 0406 
SEQ 0127 
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? +3 NG THE C Ss TORED IN XXDPSAV A XxOPSAV+2. 
ere SEPM PMSF AE EcadNE SPH vEOPTE EobdeR “ARON RERON NS BE 
67 tae TURN AAS PORN NO SAVE> 
ee 027000 104407 i snassnganasnasstlitbalotensbelgsaO0Eagyenneeeeneeeeeeeesesen 
6738 ;SEE IF oc MUST a3 PROTECTED 
673 o2709e 405737 003136 Ee. F een DATA TEST 
674 i0 7 626 #TSTLST,RO T 

a 4 605760 40 a RW INX(RO) ie rie “WDA H onTa leh TO BE RUN 

744 737 005760 2s: TST PT : E F DEF ¢ BE Th TEST 

74S BSS BSE T4883 BEQ 4g : I OFFAL DATA TEST 
674 oe 737 005764 TST mate > SEE Ho HI MEM ADR = O 

74 16 oo0002 4S: ADD #2, (SP) PF IX x1 fp NORMAL RETURN PC 

1 418 Ss: RESREG ni ft ag RO-RS 
6S: MOV WC, RO SET ORD COUNT LO BITS 
Gerove DEC RO’ }DECREMENT it 
CLR Ri :SET HI BITS = O 

b cic - :DOUBLE IT FOR BYTES 
6 ROL Ri 
b 800 nA, RO ;COMPUTE LAST ADR OF XFER IN R1-RO 
6 005764 ADD MA+2,R1 
6760 0 3135 CLRB xDPSVD iP ng Bat tbe rope" 
. 1 26 JSR PC, FNDXDP 

7 71 1 S46 MOV xXXDPAD, R3 
6763 711 005776 ADD #5778, Re 66 OTe LAST A SORES oAOF R expe 

764 71 703 005762 c MA,R i SEE FM \ XXDP 

765 71 16134 BHI 4§ : YES - DON’T MOVE xxDP 
B76 O3715¢ ; rst Rl i CHEK HIB TS OF LAST XFER ADDRESS 
6768 7130 020037 o0SS46 CMP RO, , XXDPAD j CHECK LO BITS OF F LAST XFER ADR 
x4 955132 182339 003135 gS: Figs XBPsvo i BB TE SAVE xb reat TOR 
paa8 714, 27 005762 100000 sATTEMPT 1G a tiosoos. FOR’ MA > OR = 16K 

zea Bected 16310 Beet rs Pee 

774 072000 oossso v #72000, XDPSAV Vv = 72000 
poe pS, 160 7 popseq 10$ CR ig ie ;SAVE T LOADER 
B558 p57 1$4 BBdo32 : B os’ BAYFo RETUR 
6778 057178 Bs5e01 ooo002 12S: ADD a2, ,RO ? ADD 2 BYTES TO LAST ADR OF XFER 

7 7 1 MOV RO, Re ;GET A COPY 
6781 O27202 010103 MOV 
678 o781g o5c05 005776 ADD 1576, Re ;COMPUTE END OF SAVE AREA 
Pope osrele ne cr RB MAHTLNe iE a ved > GANTT SAVE LOADER 
6786 Oe27220 001003 BNE 14$ ‘BR IF < MEM LIM 

6787 Oe72e2e 20237 006126 CMP R2, MAHILM :SEE IF LO BITS EXCEED MEM LIMIT 


ee 
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oe Rereeh Ataoae BHI ;BR IE YES — CAN'T SAVE LOADER 
bg Biota? Boeees — HOV Fo ee = dass ww . HI MEMORY 


6792 027242 017616 oo0000 16S: MOV a(SP), (SP) fat A RETURN P 
b Rézeug 105032 003135 cLRB atte Heng ie See INDICATO 
& 


38 [eve GAVE TIE KO? LOADER IN HI MEMORY 
0 *TH I DES AT T 
tet Ba Woah Sa ae 
“ST +2. A TOT 1536(DEC) WORDS ARE MOVED. 


bBs Bote g outa APY RECOCATED xx SP LOADER FROM A tHe wena 


6 08 Peavee, BACK TO LOCATION XXDPAD (ITS ORIGINA 
pg07 7254 07 HS lll 1-0 
4 
pBi0 087 4 RY saeye IRBICATOR TO SAVE XxDP 
7 io XDP 1 

6812 Oe27e62 104407 GETXDP: SAVREG ; SAVE RO- 

13 027264 1 7 003134 CLR XOVLAD SEM ibe OVERLAID INDICATOR 

ie —_——* Beg” | XDPBY SEE —_— 
6816 012704 ooo001 MOV #1,R4 1 INDICATOR TO GET XxDP 
bg17 i 000041 XDP1: Tore ae41 ; Ee F BY XXDP 

0 Vv : ) W RD 
£838 iS 8 BReeue Nov = RABBRO' BS ia ‘Bie "Rok START OF x . 
6821 027320 013700 O05550 MOV XDPSAV RO. GE aay 
He He art BE exc meen 
H a 
TST : F WANT T R GET XxDP 
es fe Pe oe ee 
6828 027344 005302 ; DEC Re : SEE iF 1536 (DEC) WORDS YET 
pes3 neg 109410 XDP2: RESREG = BE cFont™ RO-RS 
ee 7354 006000 XDP4: AD #6000, RO ‘POINT TO END OF SAVE AREA 
68 062703 o06000 ADD #6000; R3 ‘POINT TO END OF XXDP LOADER AREA 
ee 057366 Sossa2 = bee fe (R3) iger E fF iese(QeC) WORDS YET 
1 BNE 8 :BR IF NOT YET 
027372 000766 BR XDP2 :GO EXIT ’ 

e838 7374 004737 O26422 iSpae oe ll MEO ENITMM : INIT MEM MGT REGISTERS 
£8 7400 Bee 80 ROL RO’ ‘GET ADR BITS 13-21 INTO R1 BITS 7-15 
Baus Seung BRELBO Ror ORO 
6843 027406 O06101 ROL R1 


—— +--+ eer ewes - - _ 


I 
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7410 000 Ri 
pls eae 5 
149 1 RORB Ri 
1 72354 MOV R1, J8KIPARG ;SET UP PAR 
74 13701 MOV XDPSAV.R ?GET LO BITS 
: 1600 BIC #160000, Ri :FIX UP R1 TO REFERENCE PARG 
peey oso an 16S: ti Ra _ ieee IF wan N T 70 SAVE OR GET xxDP 
Pie Boge Ry ae ns | Esl” lifdng"@ OE! 200" 
6854 177572 INC a8SRO Bp ON MEMORY MANAGEMENT 
6855 os2 MOV RS, (R1)+ 
a 177572 DEC g¥SR0 ;TURN OFF MEMORY MANAGEMENT 
37 177572 18S: INC as8SRO ;TURN ON MEMORY MANAGEMENT 
685 12105 MOV (R1)+,RS : WORD 
6860 337 177572 DEC asSRO ;TURN OFF MEMORY MANAGEMENT 
686 74 0523 MOV RS, (R3)+ 
6 7474 70 o20000 20S: BIT #61713,R1 jSEE IF QVERFLO: TO PAGE 7 
6E54 es 020000 BIC seir13 Rl :SET PAGE = & AGAIN 
6865 06 737 000200 172354 seals ADD #200, Jbk IPARG ; UPDATE P R By 4K ne 
eae? Os7516 Borsa? : BNE 16S BR if Nor SHORE 
B88 000713 BR xDP2 ?BR TO RETURN 
part 
1 g ‘SBT INitss ~ INITIALIZE SUBSYSTEN 
6874 SSS 
6875 feTHIS SUBROUTINE INITIALIZES THE DRIVER AND ITS PARAMETERS 
5876 AND DOES A SUBSYSTEM CLEAR. 
68 ’ is USES - R2,R5 
6878 * CALL: 
6879 2 i JSR NITSS 
ety _ontcpeo"peeunpeyppeapeciesimeonapmennnagaenainnsateanpte 
02 12737 O42164 003046 aenvtion MOV ;SET UP ABNORMAL ERROR RETURN ADDRESS 
Peas pS5e56 515535 040716 003044 MOV SERRE: RORN Set UP Ret AD 
Bese OS7e4s OIS7Hs BosEae nov RKORS Re CET 32 OF PARAMETER. BLOCK 
bBB6 Ge 1 7 00314 CLRB NORTRY- CL = oh ye FLAG 
0047 ge76e JSR PC, CLRPRM *CLEAR DRIVER INPUT PARAMETERS 
6888 Oe 6 112768 0177 000001 nove aSUBCLR beens) 2 'Shast SUBSYSTEM EN ¢ CLEAR COMMAND 
Pasa os 11376 poeei8 oo0000 MOVB DRIVE. P. Bavncs 38 
6891 7576 11373 510 002714 MOVB DRIVE. PARM1 Hoste a bate MO NATE P.B. 
b83e 7604 11376 poet ae 000007 MOVB FOR at, e. Pbucasis ;SE BRENT RIVE ORMAT 
689. 7612 153765 003124 000007 BISB TYPFMT,P.CS1H 
6834 027620 000207 RTS PC > cuBRouTRE exiY 
eae 
6898  SESSSSSSSSSSSSSUSSVSESOSESSS SSUES ESS ESSSSEEEESEREEEEEESSEEES 


6899 BTTL CLRPRM - CLEAR DRIVER INPUT PARAMETERS 


aon 
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6300 
6901 
63902 
4 3 
63905 Oe76ee 010046 
b308 7624 Bt 46 
ee Bes B 
6308 062705 OO000i6 
6909 pores! 005020 
6310 36 Oe0005 
6911 027640 001375 
639le Oe764e 012605 
6913 0276 012600 
6914 Oe764%6 000207 
6915 
6916 
6917 
6918 
6919 
6920 
63e1 
p3s¢ 
6392 
69¢4 
6925 
6926 
6927 
6928 
6929 
6930 
6931 
3 
6934 027650 105037 003124 
6935 Ge76S4 004737 O27See 
eae Oe7660 113765 005510 000000 
6938 001 
6339 Bere 122737 000013 000041 
6340 ps767R O01 008 
6941 77 737 003116 
eais 1003 
6 77 104401 010134 
6944 Beets poos is 
6945S 7714 le 000100 
6946 027720 113 005510 000010 
6947 Age? 003124 
Bau 12 le 000001 
E9e1 12712 d02001 
a4 hla, | oosS4e 
695. 77 00Se37 Oo0SS4e 
6954 027756 001375 
6955 027760 032762 001000 O00010 
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SEG 0410 


10-JAN-78_ 12:16 
SEQ 013 


CLRPRM - CLEAR DRIVER INPUT PARAMETERS 


;*¥THIS SUBROUTINE ZEROS THE FIRST 14 BYTES IN THE DRIVER 
rea ee oe ROOrkEs IS IN RS). 


Oe See EEE HERES AS een 


CLRPRM: MOV RO, -(SP) ; SAVE RO 
MOV RS,-(SP) 58 ve RS 
MOV RS, T PARAMETER BLOCK ADDRESS 
ADD #P.CS1,RS ect LIMIT ADDRESS 
1$: CLR (RO)+ iCLE IN PARAMETER BLOCK 
CMP RO,RS sage IF DONE YET 
BNE 1$ BE toe NOT DONE YET 
MOV (SP)+,RS 
MOV (SP)+,RO RESTORE RO 
RTS PC ; RETURN 


eee NEON SGM DRIVE FOR Sint See 


Sart 
BAG At et eo Bard 


ap aie 


SOP These” i 
fot ee hg 


06 IS LOAD MEDIUM, 
- ere USE. 
RROR RETURN ss> 
ee ee eee ee eee eee i tee Tne WOR FOR FIRGT TRY 
jjaannens CLRB FOR FIR 
ISR PC iNITSS IN ey ts DRIVER AND CLEAR SUBSYSTEM 
MOVB Pe XxOP CO RYN RE? T DRIVE NUMBER 
;SEE IF DRIVE O Brie 
BNE ;BR_IF_NOT DRIVE O 
CMPB 313, ae41 i BEE IF RKO& IS XXDP MEDIUM 
BNE 3$ IF NO 
TSTB MOFLAG E IF 2 START 
’ 
BPE DROXDP ; “DRIVE 9 Is LOAD MEDIUM” 
BR 2s : TAKE E 
3S: BIC 8IE, (Re) DISABLE OB” TNTERRUPT 
MOVB DRIVE RKCS2(R2) :SET DRIVE NO. IN RKCS2 
TSTB FMt i SEE IF RKO7 
BNE eg : of YES 
HOV BGO, (R2) tELSE SET GO FOR RKO6 IN CS1 
SS: MOV 8<CDT!GO>,(R2) ;SET GO FOR RKO? IN CS1 
75: CLR SCRACH j CLEAR STALL CTR 
14S: INC SCRACH : INCREMENT STALL COUNTER 
BNE 14 :STALL FOR SEVERAL MILLI-SEC 
BIT #MDS,RKCS2(R2) ;SEE IF MDS ERR 


G2REND-PI1 16-SAN~96 11:48 


oe 


re 
=f 


2% TE0 SFSLBR 


BR 

oa 

of 
wn 


ie 
a 


= 
: 


oe 
ss 


Ss 


#8 
3 


~2 
Est 
leh 
: 

8 


-——e 


rE 
- 

88 
N 
o 


os 
zs 


: 


sis 
ace 9 


Bang 


oor 


12765 000632 


MACY11 


ooo001 


000001 
000001 
000001 


oooo00e 


ade? 


18S: 


20$: 


;SEE IF 


- SERVICE 
2s: 


agee IF 


;SEE IF 
65: 


ieee IF 


Cll 
stAn DRive FOR SFarhe™ 199 
MOVB SSELORV P. cmnocrés” SET cnn FOR REPORT 
oR pC, i: on ist T OTHER RK611 REGISTERS 
FLAG 


RROR Soe T 
eis an —s T TESTING 


5 
;SET 
;GO0 
BG STE. RKER(R2) i IF TYPE ERROR 
-COT,TYPFMT ;: sf Set "RKOD AG 
BTA 8. H BNeSYStes 
MOVB OROSTAT gun Ré) SET Mee AD DRIVE STATUS COMMAND 
HLT Bat ine Tho RET ADDRESS 
83 Phir’ MEO Oe RE THO I PE AYeR 


JSR DRIVE STATUS 
mes DRIVE” 3! OCB. AER AND 15° 


TURN 
Be, eg BADORY +6 et Eat No. into BUF 


ois #’0 ;CONVERT TO ASCII 


TYPE SPOR SEE 
iB I 
OR 2 o Under APT SIZING 
Ray SUSAMTSA™ RUSE BO8 ARTE Rdoness 
Brive 1s a ERROR RETURN 
EBRY, P. eoncne) - TEST FOR ORIVE READY 


mea aamenes Ba taichaiite 
‘i Eo 


DRIVE Is on tae ENABLED 
-WRL,P. menses 5 if UaITE Lock’ No 


¢, ote! oy 
Re foes 


peu Fe OOH Hae SEN pat THOSE ace COMMAND 


AvCAL -SET VOL 
Aece an P-CMND(RS) Fea T COMMAND 
de aR bavi _CMND (RS) ise! REA pitas 
ney YPFMT ;SEt IF RKO 
BNE :BR IF YES 
MOV #632,P.CYLN(RS) 


seO8g “hi 32 | 


OE EE EEEEEEEEeeEeeeEeEeEeEeEEeEeEeeeEeee eee ee 
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5013 B30332 01 1456 000002 25S: AOV 51456, P YLN(RS 
14 rises poodbe 000005 27S: SLSTTRK. 2 TRCK 
Bissee P997%4 B8b0i MOV. ede P Bick 
t bg 999007 Ae fo dia 


& PAGE 134 SEO O41 
TATUS ska 5 133 


RS) ;SET TRACK=2 
Sa ite 
) ;SET 22 SECTOR FORMAT 


380000 
eer a 


onow 


) 
7 1 ISR : 4 WORDS OF BAD SECTOR. FILE 
1 oosso4 BIT , RECODE Gee ir ERROR 
1 1 Bee ; OK 
7022 01 YPE : RROR MESSAGE 
7023 Ge 17 063562 10S: cne 6177777, RWBUF +6 Be 1P" nor conn 1°S, IN 1.0. WORD 3. 
op8e Oatiee rag 005510 007656 MOVB BADDRV+6 ; ed 
7026 03043 152737 007656 B1SB #’0 BADDRV+6 CONVERT T TO ASCII 
' . 
7038 ean OL we 5850 ry sere Te LOADED WITH ALIGN PACK” 
7030 “ERROR FREE RETURN , 
7031 g3045H 062716 o00002 les: ADD #2, (SP) ;FIX UP RETURN PC 
703¢ 000207 RTS PC : RETURN 
7034 
703 $ ive - aT ate ae 
7038 ; xTHIS TINE CANNOT BE D ANY OTHER 
7 $3 --- ONLY N gene 


030462 011637 001076 i jSesevaataxcanetatwanatnesevenstsenekatunsanseayaxtenscaecececs 
fare flere Biulre BS ae Bei ne 
a O13%0e B83455 000001 i SSUBCLR P. conor} se eri BLK 8 CLEAR CMND 


? 737 O4 J YSTEM 
7048 13737 Bo5808 177776 ABU aa ge Pe lib SP RRTSR rh) 
7 207 RTS 
7050 
roe 
2033 BTTL -CHKITE CHECK CURRENT TEST ITERATION NUMBER | 00° 
oped $87 os SUBROUTT INE L pe i Ee TERBTION AUNBER FOR. bird HE CURRENT 
7056 jHTEST INTO STIMES, AND C T 10, (DETERMINE IF IF THIS aeons 
70 ia T TW F IT 
788 LHe HOME Cin SF eB EE . 
7060 VER, ON THE (QUICK VERIFY) 
7061 a STARTED AT ADRS 200, sr Pa STS WILL 
7063 01014 CHKITR: MOV -(SP) 
7064 or 9336 000144 001115 no #160, SERMAX + eye AA Max ERROR CNT TO 100 FOR SSCOPE 
7065 030540 105737 003136 TSTB acs :SEE IF /DYAL-ACCESS FLAG SET 
7066 030544 001006 BNE - :BR IF 
7067 O30546 105737 003116 TSTB MDFLAG :SEE IF ‘500 START 


ZR6MD0 RK611/06 SS VERIF 1 MACY11 308 1052) 10-JAN-78 12:16 PAGE 135 SEQ 0413 
ZR6MD.P11 10-JAN-78 11:48 HKITR - CHECK CURRENT TEST ITERATION NUMBER SEQ 0134 
? 52 907 BNE 4g ;BR_IF_NOT 

20 4 : 7 001326 rst seas jSEE IF FIRST PASS 

2 7 1737 000001 001304 35: HOV #1, STINES SET UP bum “abcess Fee 

707 7 413701 001102 4§: MOVB STSTNM,R1 :GET CURRENT TE TES R 

ees 36t per Rt  OSUBCE tT BY ler TEST LIST INDEX 

7076 Biel 37 005626 001304 MOV FerLSTCRID, STIMES ;L ttERAt 

70 1 1403 BEQ ;BR IF TEST D BE SKIPPED 

7078 030612 062766 o00004 oo0002 1S: ADD #4, 2(SP) : ADJUST Ret PC TO RUN THIS TEST 

70 030620 012601 2s: MOV fsP i+, R1 *RESTORE R1 

3080 030622 000207 RTS : RETURN 

508s 

cues BU ete hice FEC OTe eu 

7086 j ¥THI TRING 785 TO an INPUT 

7087 STHIS.SUBROU che ACES 

7088 ef, Teeter? 


a : {<THE M ine TE. 

ooo ae poe YF ne + oe ee 

7092 aT N ay (¢ = FIRSt RETURN Caza 

70933 Da a PMO aS Tak aval 10 neu? 1s TYPED. 


7034 SIE (#6) 

7096 5 #FOR, MO rebar CATION’ ie =Sor Tbe Hee BND Sten” giatee ec) SRC TURN 
7037 HETHE |RURBER OF INPUT CHARACTERS IN THE BUFFER IS RETURNED 
7099 :% } 

7100 :% CALL - JSR , ROCHRS 

7101 i <CONTROL - RE TURN ADDRESS> 

7102 1 i <CONTROL- TURN ADDRESS> 

7103 i# <CONTROL -U OR ERROR RETURN ADDRESS> 

oi 2 9 3-0-3636 A 6 2 0 3 3 2 9 2 EE 
7107 030624 RDCHRS: 

7108 010146 MOV R1,-( ;SAVE RI 

7109 030626 010246 MOV Re; -(SP) :SAVE Re 

7110 oo0son” CLR RO j INITIALIZE CHARACTER COUNT 
sit 030632 OO050L. patie? oe LR acted! : INITIALIZE RUB-OUT INDICATOR 
7113 030634 104406 2s: RDCHR ;READ A CHARACTER 

att 030636 112602 saaieiad Hove (SP)+,R2 ?GET CHARACTER INTO R2 

ati? Baoe44 dBlone °0000S palin tae re Mor tte) 

7118 O30646 104401 o12426 TPE CNTRLC *ECHO (¢C) 

7148 0306 017666 000004 oo0004 3s: mov 34(SP),4(SP) j PUT RETURN ADDRESS ON STACK 
71el : CHECK FOR (#2) : 

7lee 030662 122702 oD0032 4g: MPB #032, R2 ;SEE IF (¢Z) TYPED 

7123 O30666 001006 BNE 6S :BR IF NOT (#2) 


CZR6MD0 RK611/06 SS VERIF : MACY11 308 1052) 10-JAN-78 12:16 PAGE 136 SEQ O414 
CZR6MD.P11 i0-JAN-78 11:48 DCHRS - READ A STRING OF KBD INPUT CHARS SEQ 0135 
7124 030670 104401 012433 TYPE CNTRLZ ; ECHO (2) 
7125 030674 062766 000002 o00004 ADD ke, 4 (SP) !MAKE OLD PC POINT TO NEXT RETURN ADR 
31 030702 000763 mnie BR ree :BR TO TAKE (#2) EXI 
gi 630703 a8 tobe oo002s 6$: cNPS ages, Re jSEE IF (tu) TYPED 
7130 gle 01 o1244s TYPE CNTRLU ;ECHO (tU) 
7131 0307 66 oO00004 on0004 7s: ADD 84, 4(SP) ; MAKE OLD PC POINT TO NEXT RETURN ADDR. 
5135 ; CHECK FOR (#G) od piglets imate 
sis 3 122702 000007 8S: CMPB #007, Re ;SEE IF note? payree 
3136 14401 O124S2 Y CNTRLG ;ECHO (4G) 
7137 737 026370 JSR PC, GTSWRG i OPEN SOF THARE SWITCH REG. FOR CHANGE 
7139 ;CHECK FOR RUB-OUT (DELETE) . a 
2140 122702 000177 4s: cNPS #177,Re ;SEE IF RUB. OUT (DEL) TYPED 
oi43 G3078e BOTzeE a Ss ie Penee ren Court 
: = 
7144 Ba5, 1 TST R1 :CHECK THE RUB-OUT INDICATOR 
fig Boros BRlo fe als Ber mbell rhorceton > 
5138 6& 104401 012463 TYPE BKSLSH + Pepe aN (N) 
314g 7 ooss4e 11S: cLR SCRACH ; a aa FOR TEMP. BUFFER 
7150 1 116037 o0S272 oossH¥2 MOVB BUFFO(RO),SCRACH’ ;: GET T CHAR CHAR. Bho BUFFER 
7131 931006 AoadO1 oo0ss42 Tyre SCRACH ; ECHO RewaRaCTER 
7153 O31014 005701 14S: TST R1 + PECK Wee tae INDICATOR 
7154 1016 001403 BEQ 16S ;8R FI ree IS NOT SET 
7155 031020 104401 012463 TYPE BKSLSH Pope A 
7158 031024 O0S001 CLR Ri + EARS week KUBCOUT INDICATOR 
715 -CHECK FOR CARRIAGE RETURN 
7158 931026 i3e7e 000015 les: cNPS #015,Re ‘see IF cer TYPED 
7160 ; HANDLE POSSIBLE DIGIT 
7161 031034 onso37 ooSss¥2 CLR SCRACH USE SC TCH WORD FOR TEMP. BUFFER 
7162 O31040 110237 o0554e MOVB Re, SCRACH GE CHARACTER INTO BUFFER 
7163 031044 104401 o0554e T RACH j ECHO CHARACTER TYPED 
7168 931050 1To260 0052 MOVE Re, BUFFOCRO) + PUT ote TER INTO BUFFER 
7166 031056 gee700 000120 CMP a ,RO iS : Pea eater ACTERS TYPED 
7168 O31064 104401 001315 TYPE :T <CR> AND <LF> 
7169 031070 112760 o000000 o0s272 MOVB bar BOEFOCRO) ; PUT TERMINATING NULL INTO BUFFER 
71 031076 104401 00527 TYPE , BUFFO ;ECHO INPUT STRING 
7171 031102 104401 001314 TYPE *SQUES : TYPE <?>.<CR> 
2i7e 031108 000703 BR se 3 TAKE ERROR extT- FROM RDCHRS 
7173 031110 104401 001315 19S: TYPE TYPE <CR>, <LF> 
7174 O31114 112760 000000 on0se27e MOVE Ks, BUFEO(RO) tPUT T TERMINATING NULL INTO BUFFER 
7175 031122 O62766 o00006 o00004 ADD #6°4(SP) :FIX UP RETURN ADDRESS 
7176 031130 Ole60e 24S: MOV (2h )4-R2 ; RESTORE Re 
7177 031132 012601 MOV (SP)+'RI TORE R1 
7178 031134 000207 RTS PC OE BROUTINE EXIT 





CZREMDO RK611/06 SS VERIF 1 MACY11 30A(10S52) 10-JAN-78 12:16 PAGE 137 SES O415 
CZR6MD.P11 10-JAN-78 11:48 RDCHRS - READ A STRING OF KBD INPUT CHARS SEQ 0136 
oiBt 
gies bette TYPTST ~ TYPE CU BRENT TEST AND ITERATION NUMBER 
7184 i 15 | SUBROUTINE EP hinece oe tye’ cimnent ‘Te WI tH NO. CBR 
71 PVN R OF ITERATI THAT? t 
7183 sate MUST ar ee NOTRE InDEX NTO fees LIST EST 
7189 EL TYPTST 
gt rr (ST came OR tela Foie btn AE clk 
7192 031136 104401 012474 Tetst: TYPE SPACE1 ; TYPE A SPACE 
2133 03114¢ 010146 mov R145 (SP) PUT INDEX ONTO STACK 
51 ae Battie ie INC {2p} S PCAPRERT O GET TEST NO. 
7196 031150 104403 TYPOS ; TYPE TEST NO. IN OCTAL 
7198 O31183 rea BYTE : :SUBBRESS CEABING ZEROS 
71939 1154 104401 012467 TYPE SPACE6 : YPe 3 
7200 O31160 016146 005626 MOV tSTLST(R1),-(SP)’: CURREN ITERATION NO. ONTO STACK 
7201 O31 164 1o4403 TYPOS it I ERATION NO. IN OCTAL 
7 631 185 O68 ‘Ext g i SUPPRESS CE ABING ZEROS 
g oY 031170 000207 RTS Cc + RETURN 
7206 
A ; agTTe *Typean ~ TYPE CURRENT PARAMETER TT 
7209 ;#TMIS, SU : SYVYYYYYY 
7210 “WHERE XX I MNEMONIC, AND 
7eil EEWYYYYVYY 15 its VALUE phe sca hic alii Th LEADING 
351s S eer Y Re mSt fo CON AIN N THE INDEX INTO ne 
3 18 ; XPARANE TER TABLES, F NT PARAMETER. 
gets : 21 aatine a AAT EBON Shee 
38} 031476 9 8137 pog15e 012476 TYPPRM: MOY. PRMNEN CRI), » PRMBUF ripht.. MINEMONTC INTO OUTPUT BUFFER 
7ee0 031204 016137 905732 005476 mov Par STIRL, Louoct :PUT LOW BITS OF paren. INTO LOWOCT 
7880 031316 022761 Baeere 006152 che 6 Oi Lecwnnss | SEE iF Pe AME TER 8 (MA) 
7224 $31 55¢ 0161 005734 oosso00 MOV pe Hrcber Tere HI BITS OF PARAM. INTO HIGOCT 
7e2S 031234 012746 005476 1S: MOV #LOWOCT, -(SP5 PUT, ADORE SS OF BINARY VALUE ON STACK 
72 O31 40 004737 OS342e ISR PC, es0620 ONVERT BINARY TO OCTAL ASCI 
7e2e7 O31e44 004737 053736 ISR PC’ J#SSUPRS YPE YYYYYYYY, SUPPRESSING LEADING 0°S 
7ee8 031250 000207 RTS PC’ ja. URN 
753) 
733 agree THERA MTSE Etanant geo ge ania pattems is 
7234 :¥THIS SUBROUTINE TYPES THE LINE : WORD XX = YYYYYY, 


7235 :*#WHERE XX IS THE NUMBER OF THE CURRENT WORD OF 


H1l 


CZRENDO RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 138 SEQ O416 
CZR6MD.P11 10-JAN-78 11:48 TYPPAT - TYPE CURRENT WORD OF SATA PATTERN 15 SEQ 0137 
7236 ; FUSER—DEF INED PATTERN 15, (Ano YYYYYY IS ITS 16-BIT 
7237 *VALUE, IN OCTAL DIGITS. AND <LF> ARE NOT TYPED. 
7238 ; #ON noeb IN R1 st nie He Oe INDEX OF THE CURRENT 
7239 IN THE PA 
7240 is ALL CoE par 
7eNe eS cH SENNSEETSORENEESASTERS SOT EESSESEESEEEELELESEOHONERESESES 
7243 031252 rverat: 
7244 1 104401 oO12502 TYPE WORDSP TYPE ” 
7eus 031256 010146 nov RL > (SP) PUT T INDEX ONTO STACK on | 
5549 B3iSes Oba508 TYPOS : \t WORD _ NUMBER | 
oeus 63152 0 BYTE ¢ sea y "5 YPE LEADING ZEROS 
5523 83} 10498} 012510 TYPE EQUALS = 
7251 031272 016146 007156 MOV PATIS(R1),-(SP) ; Ort BINARY VALUE OF THIS WORD 
7 1876 1044 TYP. :T N OCTAL 
? i BY 6 :T 6 
7254 031301 001 *BYT 1 :T LEADING ZEROS 
2 S 031302 000207 RTS PC } RETURN 
ves | 
7289 eee eee eee e eT OTEY IER FIED PATER 16 
7260 aT Rout TEY Soh} Le 
? sont Ris ERM Tigh, are 
$55 Ooi ch 
7264 sal ae. ie ons! ty, i 
is are erg aa er a 
7266 ta OPERA ARSUERS TIE RN FORD 
7267 :aWITH EXCLAMATION POINT (! d “sh 
7268 :#PROPAGATES THE LAS WORDT BD ine ALL ROUTINE 
2 3 :“#WORDS OF THE PATTERN Mit 
3555 ; s wa Rane aml Fs TEs ARTE: ewe 
7273 031304 MODP1S: 
rere false: B1ande roy ARSE) 
727) 31398 BibSue v Ra? = ) ; pa 
5555 1312 022761 oOS2120 o06152 _— + CMP = nis PRMNEMCRI) E IFC NT PARAMETER IS (PT) 
7279 631335 B01127 BNE i Be FN aioe 
oSee 1 737 100000 005760 — aT & 13 na | E IF wogtd SPECIFIED 
72 631356 5389635 Q 2 Bee et 
a5Bq D31 4 167 age® ad ee te - novi ied THER PATTERN 15 SHOULD BE MODIFIED 
7885 031336 054737 p4ae87 , ISR Pc, ROGHRS RERO RESPONSE 
7. 031 1610 24S 3(¢#C) RETURN RESS 
7287 031344 031620 26S :(#Z2) RETURN ADDRESS 
7 88 1 O31404 3 5) OR ERROR RETURN ADDRESS 
$560 O313e2 DOiSiS BEG Bs Foe TF BDTEIGATION NO REQUESTED 
7291 031354 022737 000115 oDSe27e CMP #°M, BUFFO :SEE IF (M) 1OREb 


CZR6MD00 RK611/06 SS VERIF 1 
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ll 
7 1362 1405 
5835 931386 rent 
? 031370 104401 
g 1374 000 
7 031376 104401 
7 031408 005001 
as Bins tea! 
B3iyig tH 1 
7308 031420 004737 
7304 0314 031610 
7305 0314 031680 
7306 0314 14 
7307 0314 O32 300 
rss Galas Belvo? 
5300 bales pescor 
7s B1%e5 BBoree 
531g 14 0539 
vals Gaisee Boece 
731 1464 
ale Bale OB 
7318 031474 105060 
7319 03150¢ 300 
535 031504 O22 
732 031 10 O0e426 
732 151 1678 
73e4 03151 pics 
7325 031 031566 
7 1 12600 
73e7 O31 005737 
7328 031532 001015 
se Glee Bse0e! 
a BRIENS Berea 
7333 1544 022701 
7334 p3teeq 001413 
rise Gales Ber6] 
2337 031564 OB07b> 
7339 O31S566 104401 
7340 031572 104401 
ce nt 031576 000702 
7343 031600 012602 
7344 031602 O12601 
734S 031604 012600 
7346 O31606 000207 
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o00Se72 
001314 


01114S 


000036 
007156 
oo000e 


005272 
001314 


MACY11 30A( 1052) 
MODP 1 


005272 


00Se71 


007160 





10-JAN-78 12:16 PAGE 139 
5 - MODIFY USER-DEFINED PATTERN 15 
BEQ ;BR IF MODIFICATION REQUESTED 
TYPE , BUFFO ?ECHO BAD eet 
TYPE SQUES 
BR 4g ;GO ASK AGAIN 
-MODIFY PATTERN 15 
b$: TYPE SELP1S ;TYPE “MODIFY PATTERN 15” 
CLR Ri : INITIALIZE WORD INDEX 
8s: JSR. PC TYPPAT ; TYPE CURRENT WORD AND VALUE 
, 
TYPE  BROMPT + TYPE ASTER TSK AND SPACE 
;READ AND CHECK INPUT, IF ANY 
ISR PC, ROCHRS ;READ NEW DATA PATTERN WORD 
DUS :(#C) RET ADDRESS FOR RDCHRS 
26S :(¢Z) RETURN SS FOR RDCHRS 
8S :(¢U) OR ERROR RE ADOR. FOR RDCHRS 
TST RO ?SEE IF ANY INPU 
BNE 128 :BR IF ANY INPUT 
10S: ADD #2,R1 ; INC MENT INDEX 
CMP #3e., ;SEE IF AL 
BEQ 225 BR I DONE T TURN 
BR 8$ *CONTINUE WITH NEXT WORD 
12S: CMP #’!, BUFFO :SEE IF (2) T 
BEQ 16$ ?BR TO PROPAGATE CURRENT VALUE 
CLR Re INIT. (8) I ICATOR 
CMPS 8’! BUFFO-1(RO) ; iF LAS IN BUF IS (!) 
BNE $ :BR I T (8) 
CLRB BUFFO-1(RO) j INSERT TERMINATOR BYTE 
DEC RO :D C MENT CHAR COUNT 
INC Re : (!) INDICATOR 
14S: CMP #6, RO ?SEE HOW MANY CHARS NOW 
BLT :BR IF TOO MANY 
MOV #BUFFO, -(SP) :GET BUF. . ON STACK FOR OCTBIN 
ISR PC, OCTBIN ; CHECK bi ITS AND CONVERT TO BINARY 
205 ; ERROR URN SS FOR OCTBIN 
MOV (SP)+,RO >GET BINARY 
TST $H10ct ;SEE VAL XCEEDS 16 BITS 
ey SOs eaTISCRI) TPT MEH HORS VALUECINTO TABLE 
’ 
TST Re Cee I (?) WAS LB ED 
BEG 10S ‘BR IF (!) WAS NOT TYPED 
-PROPAGATE CURRENT WORD TO END OF PATTERN 15 TABLE 
16s: CMP #30.,R1 ; SEE iF ALL DONE YET 
BEQ °BR I DONE 
MOV PATIS(R1),PATIS+2(R1) ,PROPAGATE TO NEXT WORD 
ADD #2,R1 ; INCREMENT WORD INDEX 
BR 16$ :LOOP UNTIL DONE 
-ECHO BAD INPUT 
20$: TYPE , BUFFO ;ECHO BAD INPUT 
$QUES ; TYPE <?) AND <CR>,<LF> 
BR ?BR TO ASK AGAIN 
«NORMAL RETURN 
225: MOV ;RESTORE R 


MOV 
RTS 
; (tC) RETURN 


2 
;RESTORE R1 
;RESTORE RO 
; RETURN 


SEO 0417 
SEQ 0138 


CZR6MD0 _RK611/06 SS VERIF 1 
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N 

[fy] 
atatatat, 
papereratat 


7377 Baie 
7378 16 
73739 031654 
7380 031660 
7381 

7382 031662 
el faites 
a. 4 031900 
738 631706 
7388 03171 
7389 

7390 03171 
739 Bald 
73 17 
7393 031730 
7394 1732 
7 1734 
7396 1742 
rae Bales 
7339 B31784 
7400 031756 
7401 031764 
7402 

7403 031766 
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Jil 
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012766 013732 O00006 
000770 


012766 015344 d00006 


000764 


Reise at 
B FREReesS 


ag 


040515 
oossoo 
000000 


005476 
005476 


005476 


000001 
oossoo 


005476 
oossoo 


005476 


005476 


006152 


o0604e2 
006044 


005732 


005476 
006044 


006042 
006050 


006046 


00S732 


P1S - MODIFY USER-DEFINED PATTERN 15 


24s: MOV sORVTST,6(SP) ;PC FOR (tC) RETURN 
ees ;BR TO RETURN 
;(tZ) RETURN 


26S: MOV BASKMDE,6(SP)  ;PC FOR (2) RETURN 
BR 225 :BR TO RETURN 


bette CHKPRH = CHECK VALLE OF INPUT PARAMETERS ee 


"SBTTL CHKPRM - CHECK et OF INPUT PARAMETER 
orth QUTINE CKS C Me F LOWOCT AND 
j HHIGOC CIF ge-81T Val I VALUE pan UPPER 
:#LIMITS FOR aM TABLE 
:#INDEX FOR THE CURRENT 
:#TO CHKPRM 1N RL ON nk ‘Peet 1! Se 
:#IS LEGAL, IT I 
5 x(PRMLST). ir Sie a aa FOLLOWING 
: #VALUE (52 Bf ed TS) RI 18 NORENENT Rie. 8 ORE RE RETURN. 
: ALL - JSR 
a TERROR RE =e oASi ADDRESS> 
URN 


;% 
ettitiitiitiiiitititiiiiiiiiiiiiiiriiiri irr r irre rer errereereees: 
CHKPRM: SAVREG 


; SAVE RO-RS 
HOV R1, R2 ; GET COPY OF INDEX 
CMP #°MA, PRMNEM(R1) i SEE i ee RAMETER IS (MA) 
BEQ 20$ 
TST HIGOCT SEE F Ht CH BITS = 0 
BE 18$ 
16S: MOV a(SP), (SP) :GET E RETURN PC 
BR 305 59 TO RETURN 
-CHECK VALIDITY OF 16-817 P TER VAL’ 
18s: CMP LOWOCT, IM(Re) ;SEE T VALUE IS TOO SMALL 
BLO 16S iBR IF T VALUE TOO MALL 
CMP LOWOCT, PRMLIM+2( INPUT VALUE IS TOO LARGE 
BHI 16$ NEUT T VALUE IS TOO LARGE 
;UPDATE 16-BIT TER VALUE Tf wien LIST 
MOV L T, PRMLST(R1) PARAMETER VALUE INTO LIST 
BR 28s a TURN 
CHECK VALIDITY OF 32-BIT panne! 
20S: BIT #BITO, , LOWOCT MA_IS ODD 
BNE 16 aah 00D 
CMP HIGOCT, pam rnvachs) HIGH WORD TOO SMALL 
BLO 16$ GH WORD IS TOO L 
BNE ES $ tf H tah WORD NOT EQUAL TO LOW LIMIT 
CMP LOWOCT, ese : IF LOW WORD 1s 00 
BLO 16$ Low WORD IS TOO SMALL 
24s: CMP HIGOCT, PRMLIM+6(A2) ise IF HIGH WORD IS TOO BIG 
BHI 16$ ;BR tF HIGH TOO BIG 
BNE 265 *BR IF HI WORD NOT EQUAL TO UPPER LIMIT 
CMP LOWOCT, PRMLIM+(RE) “SEE IF LOW WORD IS TOO LARGE 
BHI 16 R tF Low WORD IS TOO LARGE 
“UPDATE 32-BIT PARAMETER VALUE rhe Pet 


26S: MOV LOWOCT,PRMLST(R1) ;PUT LOW WORD INTO LIST 


SE@ 0139 


ceneree + ae SS VERIF : 
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774 
ouee 031 013761 


7 
74 
a 
ri 
7410 
741 
741 
741 
7414 
7415 
aie 
741 
7418 
7419 
7420 
74e1 
74ee 
ousa 
eS 032060 013700 006126 
rise Gieess theres Boas 
rise Base sect 
032076 163701 005764 
30 102 100413 
PL BI teal 
74 1 1 
7433 Gasit 
7434 11 7 000001 
7435 635148 00SS01 
5439 Ose 132 001403 
5438 p3sise 012701 000001 
7440 032132 o? 
7441 
7442 
7443 
7444 
744S 
7446 
7447 
7448 
7449 032134 104407 
7450 Bat 004737 027522 
7451 14e 112765 Q00141 
74 most 004737 040316 
7 032154 104401 011374 
7454 032160 104401 011410 
7458S 032164 016501 000054 
ies 032170 O1e704 053524 
rise Gastes BIOS cooons 
74839 O3ee0e 006101 





MACY11 i? 


oossoo 005734 


000014 


000001 





10-JAN-78 12:16 
NPU 


PAGE 141 
= CHECK VALUE OF INPUT PARAMETER 
MOV HIGOCT PRMLST +2(R1 ) ;PUT HIGH WORD INTO LIST 
;COMPUTE AND TYPE MAX ALLOWABLE WORD’ COUNT FOR THIS MA 
ISR PC. MXWRDC ;GET WORD COUNT IN R1-RO 
TYPE MAWRDC :TYPE "MAX WORD COUNT = 
MOV RO, SUMO 
MOV Ri Il 
MOV #SUMLO1,-(SP) PUT onveRt To" oft ON STACK 
ISR PC, $0820 :C OCTAL 
JSR PC’ $SUPRS jTYPE IT 
TYPE ScRLF :T <cR>, <LF> 
ADD b2, 14(SP) * INCREMENT R1 INDEX 
28S: ADD #2, (SP) ;GET NORMAL RE PC 
30S: RESREG ;RESTORE RO-RS 
RTS PC + RETURN 


LAXURDG GET MAX ORD COUNT FOR CURRENT MEM LIMITS AND CURRENT 


km MXWRD GET MAX WORD COUNT FOR CURRENT MEM LIMITS AND CURRENT MA, 
? ¥AND PeavE HE WORD COUNT IN RI-RO. NO REGISTERS ARE SAVED. 
aoe, Oy TL A tcET LO LIS OF PE LIN 
AXWR MOV MAHILM, RO ;GET LO BITS OF MEM LIM 
MOV MAHILMS2, R1 *HI BITS OF Fnen 
Be na, RO : SUBTRACT ROM TT AHILM 
SUB MA+2,R1 
BMI 27S ;IF NEGATIVE, RETURN 
CLC :DIVIDE BY 2 TO GET WORDS 
ROR RI 
ROR RO 
ADD #1,RO ; INCREMENT BY 1 WORD 
ADC R1 
TST R1 
BEQ 27S ;BR IF WORD COUNT < 65,536 DEC 
CLR RO :MAKE WORD COUNT = 65,536 
MOV #1,R1 
27S: RTS PC ; RETURN 


5g HE HEHE ME HE ME HE AE HE HE HE HE HH A A HH HH HH HH HH 

‘éSTTL DRVSER - Ye DRIVE SERIAL NUMBER (LOW 3 DIGITS) 

i TEROS SUPPRESSED. YPES “DRIVE SER. NO. XXX” CIN DECIMAL), WITH LEADING 
pbessdessecstesbeéseusnuonescocsussecsssuasesesuaseazeseccasesss 


baVSER: SAVREG RQ-RS 


SR pont i. S. AND PARAMETERS 
MOVB bSTAT cmos : Bas READ STATUS COMMAND 
SR poe THIS DRIVE 
TYPE »D “DRIVE” 

TYPE atv, sty “ SER. ° 

MOV P.ALL(RS),R1 ; GET “a” STAT Ne: BYTE 11 

MOV aSOCTVL RY : get ADDR OF CHAR BUFFER 

MOV R4, -(SP3 :STORE IT ON STACK FOR SSUPRS 
MOV 3° Ra ?INIT CHAR COUNT 

ROL R1 ; INITIALIZE BIT POSITIONS 


SEQ 0419 
SEG 0140 


CZREMD0 RK611/ 
CZR6MO.P11 


bou7a7 0S3736 


104401 001315 


MACY11 30A(1052) _10-JAN- 42 
DRVSER - TYPE DRIVE SERIAL NUMBER (LOW 3 DIGITS) 


000007 


000001 
000002 
000005 
000010 
00001e 


78 12:16 PAGE 1 


ROL R1 
4g: ROL Ril ;GET NEXT 4 BITS 

ROL Ri 

ROL Ri 

ROL R1 

MOV Ri, RO one A WORKING C 

¢ 

BES $76 RBO” Stee Buent Yo asel? 

MOVB RO, Oe I DIGIT O CHAR BUFFER 

DEC R32. i OECRERENT CHAR cdunt 

BNE 4§ :BR IF _NOT 3 CHARS YET 

CLRB R4) ; I RT TERMINATOR 

ISR PC, J8SSUPRS ; DRI SER. NUMBER 


TYPE , SCRLF 
RESREG 
RTS 


PC ; RETURN 


pare NeRTSER TYPE CORIRIDOE SERIAL MER 


$B RTSER - 
*TH § TI 
 eWITH 


TY NUMBER 
TYPES * pat SER. NO. XXXXXXXXXXX" CIN OCTAL), 


STTTTT TTT tt TTT tT Ttiiititti titi titi t iit titi titi itt iit etitey 


CRISES TRS Se ABE. coancnd Sue” Ss fer fe ER Hit 


C 
$8 HE _AC UAL F' 
fice P pSECT(RE) ie iF Scie BRS. READ SECTOR 1 
~~ oye fg? Y ABP ¢ HNO (RB) a Cc ! E32¢0c1 1456 OCT) FOR RKO7 
MOVB na me oe Teas ee 
MOV AD BUFF ER apo RESS 
MOV g-2,P en chug re AD 2 WORDS 
ISR . IN 
TYP ce 
MOV my R "OR D 
ISR be pet he FRab F BEL 
JSR ae gussu :TYPE CART. SERIAL, NO. IN OCTAL 
TYPE :TYPE <CR> AND < 
RTS RETURN 


5 EE REE 
TTL EKER - 
*THIS S OUTING 

sASEEK K VI 
#*DOE NOT ONTAI 


eIF 
pis ENTRY TO THE. 


seeseeeteen init aA DO cit “x 


FEREODS EAT OM ARSUELT BEG, an roar 


ADER 
’ THE ees CYL 15 Pe NO. Ah Penton IS_ REPORTED. 


S_ PE 
TINE, THE DRIVE AND CYLINDER NUMBERS 


bie cE PRE-LOADED INTO THE PARAMETER BLOCK. 


ererrerr ret Tet 


PTT TTT eTTttitt rit itt tit titi tittiittitititiiiiicey 


SEQ 0420 
SEQ 0141 


BP CLT SEEKS REQUESTED 


Soe: ABER COMMAND 
"eee OKPECTED CYLINDER 
STORE V-GNO, CURRENT CHNDS 


; YL NO. 

;CYLINDER MISCOMPARE 

;PERFORM COMMAND 

;RESTORE RO 

5 

T ST 

Ne eras Fo FOR ST STALL TIMES, 


“AVERAGE” CPU. IF BIT 8 
Is ARPPLIED. 


i etobtesewtbaaneeebs bbe ttanemeanoesennneasonsnesunssasecee 


OUT INE GENERATES A PSEUDO-RANDOM 9-BIT 


CZR6MDO RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12: PAGE 
CZR6M0.P11 10-JAN-78 11:48 SEEKER - PERFORM IMPLIC 
i$ §3s372 94 7 ooooo,  nKER: Move EK°P CHND(RS) 
1 7 reese 146526 BIT seITO? aSun 
1 1é 1023 ; BNE ». 
ei ee a ie si oe 
CMP peo cY So AeRS) 
7524 032436 00141 BEQ 4s 
a4 RaSHg 6 tetas 001174 at EC ABERTHE) , srecs 
7527 O32e4S2 010037 001176 MOV RO, SREGS 
fees Geto bposts eS 
737? 040316 2S: SR PC, DRVCAL 
7531 032% 66 012600 4: MOV (SP)+,RO 
7s 032470 000207 RTS PC 
75 
7830 ‘aSTTL STALL STAL OR ST UN 
7538 ;#IF_SWR BIT 2° THIS" sUgRO He 
7539 :#WHERE A S The = 40 US. P 
7540 ?*#IS EQUAL sted A RANDOM STALL 
4 ;H ALL T 
754 
7544 gse472 010046 omas Mov RO, -(SP) 
ree 3676 338 OOO400 146434 BIT eet TO8, aSuR 
oq i799 052620 aR PC, SRAND 
oeug p35208 pO 3580 052720 mov SLONUM, RO 
ee 
Peek fess foment Bg 
x 
754 pseesg B81S08 o0ss12 1S: Mov > age: 
000016 2S: MOV #14.,R1 
7556 osee%0 905301 45: pre Rl 
4 E R 
ne en ie 6S nov f35)4.R 
peey Basecs §BtSep4 + ABN ERED SR 
7562 O32552 000207 RTS 
7563 
7564 
736 
758 pte 
-& 
7570 *SUBROU > 
7571 * CALL - PC, RNDADR 


hoe om STALL ? 
RATE PSEUDO Se ae NUMBER 
13a es thy 


;0 gov eas RANDOM 


E55 Salad -tet-$-$-1-taledal-+-te}-+-trtah-total-bet-$-+-tab-+-+-$-+-4-+-tab-+-tet-+-4-4-5-+-talalelalebalalalabalelalelele 
Ri YL — ADDRESS GE T 


CYLINDER 


Tine NE" SBAND Leaves IT IN “CYLNDR”. IT REQUIRES THE SYSMAC 





SES O42 
SEQ 


dive 





Nil 


CZR6MDO RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 144 
CZR6MD.P11 OB FAN. 78 11:48 RNDADR - RANDOM CYLINDER RooRESS GENERATOR —_ O-5143 
pa Xd - ; OADR, ISR PC SRAND  SGENERATE 2 16-B17 RANDOM NUMBERS 
7504 013737 be2760 005514 RROADR MOV SLONUM, CYLNOR ;GET A NUMBE i 
75 7 i 000 OOSS14 BIC #177000, CYLNDR ;SCALE IT TO 9 BITS 

7378 023737 17760 005514 cne TCYL, CYLNOR ee IF ACY CYL a on? BIG 

7878 932604 043737 017764 0o0SS14 i BIC HOLG 1, CYLNOR SCALE Bown 0 A VALID CYLINDER 
7581 

7582 

7e83 .SBTTL ROUTINES TO HANDLE KW11-L OR P CLOCK 

oees 5 SECTKON ~ ENABLE KMW11-L OR P CLOCK INTERRUPT 
sees s SEXKRSKRKAKAKAESSARESRAAAARAKSRERESAASSARRKKARRERRARRRARRRRRRRRRRRKEE 
yeas Geely ipiyg onsise |= Glxon: eget ace at ee 
7330 016777 000100 150320 mov $100, aLks 44 LOCK, ENABLE INTERRUPT 

5295 le 174575 150314 1S: MOV #-1667.,aPKSB) COUNT 

7593 40 O1503 000166 rot H at INE LINE FREQUENCY 

528e & 46 te 174060 150300 MOV #-2000. , 2PKSB ; T SO HZ. COUNT 

7236 032654 012777 O00131 150270 3s: MOV #131, aPKS EMBO ie aeRUrT CNT UP,REP. INT. 
7538 032662 000207 RTS PC RET 

en Siero IROL WL OR POO ItiKermTTeeeeee 
7ebe 032664 005200 rs soos ine rag eeeeeneenens nearer meceeer tice 
7604 032666 o00002 RTI tS DAN FROM 

Zot 5 SEEK OR tO TeABe KUL IAL OR P CLOCK INTERRUPT renee 
7608 = RHERAKKRRRKARKKKEKERAALARSRAAKREARERRRRRRARRERERRRRRERRAERRAAAKRAAERE 
7609 032670 105737 003132 &ikor: TSTB PCLKF ;SEE WHICH CLOCK USED 

7610 032674 00100 BNE g Bee oe IF P-CLOCK USED 

sell 032676 005077 150246 Rvs aLKS s DISRRLE KW1i-L INTR 

7613 032704 005077 4 : - 

7o14 032710 booe0? caneais = Ris eco sISHELE ea 

sete 

zete $ eT CALBRT ~ CALIBRATE THE GOFTMARE TIMER eee 
re EE SUPPULS Giada Tag THe ete Loe YEP fh Te LaEHN 
7622 3% 2 TICKS oF KW11-L OR P clock, THIS INTERVAL EQUALS THE LINE 
7623 *#PERIOD. IN ALL, 1 MEASUREMENT ARE hoe AND AVE AGED AND THE 
7624 ?*RESULTANT CALIBRATION CONSTANT IS LEFT IN TCONHI-TCONLO (IN 
reSe ta Tick OF THE CLOEK- CA RETURN, 1S MADE. 10 TINE OUT HATING FoR 
7627 :*IMMED. AFTER THE SACL” TO CALBRT. 


—Oeeeeeeeeeeeeeeeee ea Sa ——E 


gle 


CZR6MD0 RK611/06 SS VERIF 1 MACY11 30A(1052) 10-JAN-78 16 PAGE 145 SEQ 0423 
CZREMD.P11 10-JAN-78 11:48 CALBRT - CALIBRATE THE eed TWARE TIMER SEQ O144 
? ;# CALL - JSR 
oeSg <ERROR RETURRE BRDRESS> 
ge20 PTET T ET ET Per TTT ePMtrrert ti Trrerrr rT Trrer TTT Trttr TTT ret ts 
soe 712 104407 oman SAVREG ;SAVE RO-RS 
| «$835 G35%1e besos? 003176 gtk = Samou Mak. 
| 7635 7 37 00 CLR SUMHI i F 
7636 2s: CLR ; INIT TIME-OUT_INDICATOR 
at GET IN SYNCH WITH CLOCK foe eee Sean, eee 
7639 737 032614 : TSR PC, CLKON E E KW11-L_OR P CLOCK INTR 
7640 7 700 4S: ST RO > SEE CLOCK INTR REC’D YET 
7641 1013 BNE 85 :BR IF INTR REC’D 
| 5845 Gaseug Bors BNE OS Fe ee = © gti teemmniga 
7644 O3e746 104401 011556 6S: TYPE , CLKFAL :TIMED-OUT ON KW11-L OR P INTERRUPT 
feng Gere: loses) G)4rls i sc oe NO Al 
seus 762 017616 o00000 MOV a(SP), (SP) PON UP ERROR RETURN P 
7648 766 baowes BR iss *GO TO RETURN 
7649 -RUN TIMER TO NEXT CLOCK TICK ° 
7650 770 goso0q 8$: CLR RO ;INIT CLOCK_INTR INDIC 
oeel cLR Ra jINIT HI BITS OF CYCLE COUNT 
| 7653 036776 ithaeia 033150 Jor PC, TIMER Count CYCLES TIL NEXT CLOCK INTR 
7655 — ;ADD MEASURED CYCLES TO SUM . ' " 
7658 933004 060537 903176 ADD RS SUMLOI ;ADD MEASUREMENT TO SUM 
7658 14 37 003200 ADD R4, SUMHI1 
765 BCS 6$ ;BR_IF SUM OVERF 
reeo INC Re > INCR CALIBRATION OH OOP COUNT 
7661 gee7Ge 000200 cNe #128. ,R2 jSEE I woeey MEASUREMENTS MADE YET 
oeeS ; TAKE AVERAGE OF 128 MEASUREMENTS 
so64 12702 000007 a nov #7,R2 ;SET DIVIDE LOOP COUNT 
robe 006) Ud 903200 ; ROR SUMH i ;DIVIDE SUM BY 2 
at 033050 008302 DEC Re . ;DECREMENTT LOOP COUN 
7669 033052 1371 BNE 12$ *BR IF DIVISION NOT DONE YET 
7670 ;DIVIDE LINE PERIOD IN N-SEC BY TIMER CYCLE COUNT TO GET CALIB. CONST. 
7678 033054 995000 cLR RO ;SET DIVIDEND = 16666667 NS 
7673 033060 012702 000376 MOV #376, R2 
7674 033064 Ole 0053 MOV #tD20S23,R3 
26 73 166 Tst HZ. jDETERMINE THE LINE FREQUENCY 
7602 0 1g708 900461 MOV W461 RE a :SET DIVIDEND = 20000000 NS 
76 633108 eae 003200 16S: MOV SUMHT1,R4 ;SET DIVISOR 
7680 gi 013708 003176 MOV SUMLO1‘RS 
7681 03 116 47 053244 ISR PC,M. OPID ;PERFORM THE DIVISION 
7682 033122 010237 003166 MOV Re; TCONHI :GET FINAL TIMING CONSTANT 
7683 033126 001307 BNE 6$ :BR IF HI BITS NOT O 


Lessouiindeevseninenitahietitipestbemendiaciiaaindeanacee: -~ctigpiliiaiss iit si SS 


EfREMD. Pil 1B-3RNP 


010337 003164 


7710 


el ee ed 
OO NOU £ Wire 


SRRRARRR RSS 


Het 


pi 
£o 


033130 ; 

Bes Baesle 
033144 104410 
033146 000207 


B3aiey bss 

033156 032704 

ba3ies 

033 ige 17 

033170 062716 

033178 207 
a § 


RIF 1 
8 11:48 


882076 


wis “an = A ai 


18$: 


oe TIMER = a a SOP tek ieee 


prey & AT 


Pee 1h LISTED “R548 THE CALL 


ya 
TR 


RESREG 
RTS 


R3, TCONLO 


RETURN P 


Oe te oe eR-FR 
aie Cer kuti TE Eee eE PE NTERRUPT 
RO-RS 
i RETUR 


atl. TIMER - SOFIMARE TIER SEROUTI See 


A LOOP TAR CHEC 


“ts, 8 is CS Chad ae foun 


8 A |, LAAT: 


tIME 


Q TIMER 
5 26-6 AE 6 AE aE a aE a a a a a a HE 


4$ 


iad 


BIT 


: ROW 
, Rvs 


ies SPECIAL TIMING NG, | OOP eH 
R: 


Ra 
ses ver, RY 


a ( 
g.S), (a) 


ADO CARRY TO AI CYCLE COUNT 


a 
; SEE SEE IF TIMED-OUT WAITING FOR INTR 
;9R_ IF TIME 
: IF iN CEIVED 

?BR IF INTERRUPT TS C’D YET 


ERA UP ERROR-FREE RETURN PC 
jaca Re Tue 
RETURN PC 


g CEUSPUSHEESUNNERESEE ESSE SE SSESSESESEORSOSSSESRERReeeaeeeeeeee 
N Vv ES D TEST 


IN TIMING 


teaver ernaepwooeoeeeanne anette apezzesee 


COUNT OF FORHBRB TINE OVE SPEC’ 7D max 
REVERSE. TIME MAX 

SCOUTS rR Gun AAD ave oP 

;REVERSE TIME SUM AND AVERAGE 

;MIN MEAS’D FORWARD TIME 

;MAX MEAS’D FORWARD TIME 


;MIN MEAS’D REVERSE TIME 
;MAX MEAS’D REVERSE TIME 


; RETURN 


5p RERRRAR EERE EERE KEELER ERE EERE RRR AERAE ERE RR LAA EERE RA LRRALRLEER 


EO SPE dius 


CZR6MD0 RK611/06 SS VERIF 1 
CZR6M0.P11 


10-JAN-78 11:48 


7740 

7741 

re 

7744 

iB 

7747 

aa le 010246 

Fees SRERIG. Bune 

; - 033322 012777 HG 5A7510 

es Gee blecep 

ee fees Beeree 

7? 7 

sea Saaaes Bitcas 7S 

7761 737 033150 

BR == 

7764 

fe fae Hie 

as) Dee7eG oocode 9000004 

oe a Bt 04Se70 = 147422 

7770 01 

reek HRS Merey BRG4TZ 001 

7774 

tire Heeee Bares Baie socom 
Bee (he 

5580 033470 poo7a? viseacget baiemaeni 

ae 2 

oe 

oes 033472 ioooo2 

ee Sees Be BEES 

7789 ne 007401 

ee 

7792 

he 

ie: 


MACY11 a 
TIMSEK 


Dle 


10-JAN-78 12:16 PAGE 147 
- MEASURE AN EXPLICIT SEEK TIME 


TIMSEK - MEASURE AN EXPLICIT SEEK TIME 
PERFORM 


PALER SC ote bend DO oral 
Ais ae Ot NBER ERES: SE BEYER THe veace. 


sRSEeEtagyPHOtnggeeyeeeeeeeetzgzznggssssnanennennenenenenen 


aes Cor Re ‘ NIT INTR AT 
fe mae 
y #SEEKHD, ORKVEC_ 5 RKOE SEEK TIMER HANDLER VECTOR 
M ye R 4 ssieinciatoces SS FOR DRIVER 
CLR RS : ie COUNT ‘ 
Oe RKCSLARB Bid oak SEEKHO 


es: . WORD 
JSR PC, TIMER 
TINER 


JSR PC, CNVTIM Meas’ D Bedi ue “ 


Roy Re, Ro Poe 


aie! 


4S: Sov a SINTR, BRKVEC ene & RKOe INTR HANDLER © 
MOV c +,R5 
Move ile -crmO«RE} bse PSI LEAR COMMAND 
JSR aL’ CLE TEN 

- Bie PEE ve : ge PRPERRUPT 
JSR PC  REPSUP T PREV AND CURRENT CHNDS 
ERROR i oUt ON SEEK 


RROR_RETURN PC 
EXIT 


Se HE NTERRUPT HANDLER FOR SEEKS IN SEEK TIMING TESTS 


IkSPECIAL INT FOR SEEKS IN SEEK TIM 
ab halle S-+-tat-+-lalahahabalalalaieiad-++iat-+-1-+-tab-+-tat-ty}-+-4 halllatalalalalelaiaiaialalel 


1 
MOV @4(SP),4(SP) 
BR 4% ; Bax, 


&EEKHD: MOV (R2),R3 BITS 
:BR_IF GEBR T Te! 
. INTR iE hea: S THE ERROR 
2S: BIT #01, RS F paIy iid SET YET 
Pre RO T Tebe IN R INDICATOR 
4§: RTI ah FROM INTERRUPT 


55 EAE AE EH AE aE SE A SE HE EH A HH a Ha HH HE 
: KFDTERM - COMPUTE A TERM OF THE FORWARD SEEK AVERAGE FORMULA, 


SEQ 0425 | 
SEG 0146 | 


Ele 


CZR6MDO RK611/06 SS VERIF 1 MACY11 308‘ 1052) 10-JAN-78 12:16 PAGE 148 SEQ O426 
CZREMD.P11 10-JAN-78 11:48 TIMSEK - MEASURE AN EXPLICIT SEEK. TIME SEQ 0147 
;#AND ADD IT TO THE FORWARD SUM IN SUMLO1-SUMHI1-SUMLO2-SUMHI2. 

ae] 14 04407 Man aoe ee ee 
7733 O33e1 1900¢ MoV RO, Re :GET MEASUREMENT INTO R2-R3 

goo 33620 CLR Ru’ 
7abe 370S ooss4e nov SCRACH, RS ;GET COEFFICIENT 
7e8s Bescee S530: aos gS = FAG Hot Fostimo SUR” 
7806 42 502 ADC Re’ , 
7807 44 37 003202 ADD Re, SUMLO2 
7808 So 237 003200 ADC SUMHI 1 
7809 2 104410 RESREG ;RESTORE RO-RS 
781 000207 RTS PC 
7811 
oe13 
get e M JARVTERM = COMPUTE” “A TERM OF THE REVERSE AVERAGE FORMULA,” 9° 
7816 ;*#AND ADD 17°90 THE REVERSE SUM IN NO RAXICTeMAX TA MAX IL o-MA KIH2. 
oeie 4407 jituautauuneuseunacuaersarustuaesnerneniaxsaenaernerastaataneyiey 
7618 033860 itent MoV RO, Re ; ;GET MEASUREMENT INTO R2-R3 
rest CLR RY” 
780 30 0137 ooss4e nov SCRACH, RS GET Coeer ICTENT 
7824 0335 004737 053204 ISR PC,M.OPIM :MULTIPLY COEFF: CIENT 
7825 B33b0e 060337 003230 ADD R3, MAX THe :ADD TO REVERSE SUM 
5Bs8 p33e08 peoss 003226 ADD Re, MAXIL2 
7828 033614 005537 003220 ADC MAXIH1 
7829 033620 104410 RESREG ;RESTORE RO-RS 
7830 033622 000207 RTS PC 
7831 
7832 
7a 
e5 . :k*CreTin = COMPARE MEAS'D TIME TO MEAS'D MIN AND Max 
7837 saan (RepLACE, IF IF NECESSARY. TIME IS IN RO-R1, POINTER 
Fe40 033624 oocoo2 ete eEaaattet tata tae cenenecceneearnenensenerecneantensnenees 
7841 033630 101006 BHI 6S" :BR IF > MIN 
7842 033632 1034 4 :BR IF < MIN 
7643 62011 CH RL, (R3) COMPARE me BITS TO LO MIN 

. s 

oeue O33e46 Aiapes oo0002 4$: MOV RO, 2(R3) :SET NEW MIN HI BITS 
7846 44 010113 MOV R1; (R32) :SET NEW MIN LO BITS 
7B47 36 . 63 ooo006 6S: CHP RO, 6(R3) ; COMPARE HI BITS TO HI MAX 
7849 033654 101003 BHI 8g :BR IF > MAX 
7850 033656 020163 oo00004 CMP R1,4(R3) :COMPARE LO BITS TO LO MAX 
7851 033662 101404 BLOS o$ :BR IF < OR = MAX 


CZR&MD0 _RK611/06 SS A : 
CZR6M0.P11 48 


MO. 10-JAN-78 1 
78S2 033664 010063 OO00006 
7853 033670 010163 000004 
78S4 033674 000207 
7855 
7856 
7857 
7 
7859 
7860 
re 
7 033676 104407 
7863 033700 010305 
cee8 702 poene 
7Bee O13708 003200 
cA 4 t 13 003176 
rBe9 033728 004737 oS3244 
vee tires Bie See 
es fe 
Fa HE BS aso 
7875 033744 pha7 03 003202 
rere B3730 0047 053244 

3754 010237 003204 

7878 033760 010337 3202 
7879 764 104410 
7880 3766 000207 
7881 
7882 
7883 
7884 
7885 
7886 
7887 
7888 
78893 
7890 
7891 
7892 
7893 
7894 033770 
rade 033770 104401 011722 
7897 033774 O12701 O0321e 
7ea8 034000 004737 034210 
78 Ou 104401 001315 
7300 4010 012701 003216 
eanh a 4 737 O34e34 
7 13746 003172 
7903 034024 104405 
7904 034 010337 034034 
7390S 0340 104401 
7906 034034 000000 
7907 034036 012701 003176 


MACY11 pat ye 


10-JAN-78 12:16 PAGE 149 
TIMSEK - MEASURE AN EXPLICIT SEEK TIME 
8$: MOV RO,6(R3) ;SET NEW MAX HI BITS 
MOV R1,4(R3) ;SET NEW MAX LO BITS 
10$ RTS ; RETURN 


3 ae ee UTE FORWARD AND REVERSE SEEK TIME AVERAGES BY 
‘ kce COMPUTE FORWARD AND REVERSE SEEK TIME AVERAGE 
DIVIDING TIME SUMS BY NO. OF MEASUREMENTS (PASSED IN R3 ON ENTRY). 
KKKEKRKKKRELEAREERREAAAAKASAARAE RS HA ARSE RRASERERERERAERARRRRARKHLHHKE 
bi Tave: SAVREG ;SAVE _RO-RS 
MO *LO DIVISOR = 


v R3,RS MEASUREMENT COUNT 
cLR RO :SET DIVIDEND = FORWARD TIME SUM 
MOV SUMHI1, R2 
MOV SUMLO1;R3 
CLR RY ;HI_DIVISOR = 0 
ISR PC,M.DPID ! PERFORM DIVISION 
MOV Re, SUMHI1 ‘STORE FORWARD TIME AVG 
MOV R3, SUMLOL 
cLR RO ;SET DIVIDEND = REVERSE TIME SUM 
MOV SUMHI2, Re 
MOV SUMLO2:R3 
JSR PC,M.DPID ;PERFORM DIVISION 
MOV Re, SUMHI2 :STORE REVERSE TIME AVG 

OV R3, SUMLOe 
RESREG ; RESTORE RO-RS 
TS PC : RETURN 


. patentee eet he A TYPE REGUL TS OF GEEK TIMING MEASUREMENTS 
SaTT TYPTMS OF SEEK TIMING MEASUREMEN 


Pa Tae SEER TIRING, Tests, ARE 
TE ee TOTAL F MEASURERENTS EET TER TD SPECIFIED 

5 a "ihe fe MUST Ot NR ON ENTRY. 

Me eraraeseareTeAeTusausvesheeesSheHSEANAEEEMHENEECEEELESEXER 


TYPTMS: 
; TYPE FORWARD MEASUREMENTS 
TYPE FORWRD TYPE sh torn aie DIRECTION###” 


MOV bINtt Rl : POINTER TO LO M 

JSR PC, TYPMIN :TYPE MIN MEAS’D TIME 

TYPE SCRLE ?TYPE <CR> AND <LF> 

MOV &MAXIL1,R1 :POINTER TO LO MAX 

JSR PC, TYPMAX : TYPE MAX MEAS’D TIME 

MOV ABYMX1, -(SP) >GET COUNT OF TIMES ABOVE MAX 

TYPDS :CONVERT AND TYPE IT 

MOV R3,4S ;SET POINTER TO SPEC’D MAX MESSAGE 

TYPE ; TYPE © OF XXX ABOVE MAX OF XXxXXx US ” 
4S: .WORD O :SPEC’D MAX MSG POINTER GOES HERE 

MOV #SUMLO1,R1 :SET POINTER TO LO AVG 


SEQ 0427 


SEG 0148 


Gle 


ZREMDO -JAN-78 12:16 PAGE 150 SEQ O4e8 
ESREMD. i ie (ee 48 pies aS | ripe RESULTS OF SEEK TIMING MEASUREMENTS SEQ 0149 
PC. TYPAVG : TYE AVG TIME 
Fens Bsuowe Gouda, O13ts TYPE RLF TYPE <CR> AND <LF> 
7910 ; TYPE REVERSE MEASUREMENTS Z 
O44 TYPE VR TPE ” £##REVE DIRECTION##* 

53} Bapee i o3 fF . : TER TO LO MIN 
: is O12? } 034 r moe me cATYPRIN sPOIN ae MEAS’D TIME 
7318 Bade 1s081 | O51315 Tyee SERFS 8 [LYRE com ang cr) 

i : , 

ret PC, TYPMAX ‘TYPE MAX MEAS’D TIME 
5ai$ 078 g08737 4934 hoy ABYMX2, -(SP) Sethe reo. MAX 
Sat i 034 b : 'D MAX MESSAGE 
7313 GHIIG O10397 oovuie mov 3,68 Fig A gio 
$455 Bauie8 ore7oY 003202 = negro emt 02, RI ET ED INTER TO LO_AVG 
7923 034124 9004737 034260 ISR PC. TYPAVG : TYPE AVG TIME 
7924 O34130 104401 001315 TYPE aSCRLF j TYPE <CR> AND <LF> 
7925 B34i39 00020 RTS Cc : 
559 
oas9 LE*CNVTIM-= CONVERT SOFTWARE TIMER CYCLES 10 TIME. 
7a Te Ser Mig teat Bete ogni oe "eB" 
7433 is Noo (bec dt Ne IN MICRO~S Ec! 
baa Fees TIME TS RETURNED IN Re-R3 a agi ay mur apL Ic Feats VERFL OWS 
og3e j#3¢ BITS, ANE SUAN MADE TO THE S LIs ped TER THE 
;#CALL T NV ® 
5a3e jaCALL - JSR op PC CNVTIM : 
ogg REBRKRKKRARARERALAAARARAHKRARAAELHE 
739393 = PEKERKKEKKKKSESREKREAREKKEEKKE KKK AKES 
pant guts giarae pastes Gita Gay TR Rs SSET UCTIPLIER = TIME Cove 
7942 O34146 004737 OS3204 JSR PC,M.DPIM MULTIPLY cn one 
7943 0341S2 005700 TST RO MAKE UR HI 
rare Besiee SOAGr et 
BEQ g 

oaq Baqtes eee oooo00 4S: nov (SP), (SP) ; SET ERROR RETURN PC 
7948 034166 000207 ; ERROR URN " 
7949 034170 OOSO04 6S: CLR R4 ; SE = 0 
rae Rie Herm purse a en ta 
Ses O34202 062716 oO00002 ADD #2, (SP) EX RROR-FRE URE TURN PC 
7953 O34206 000207 RTS PC E 
seec 
oge RELKASAARRAARAARAAKSASREARAARKRRARHRAKLAEAK 
oaeg STYPMIN ~ TYPE MIN MEAS’D TIME IN US. POINTER TO LO TIME IS IN R1 
oaea eee mec angaemaiar) aaa 
7961 O34210 104401 011756 +{PMIN: TYPE aft N Q 1 Lee tae to Lo TIME 
tees Ouse BoNeae mee PC’ as a $pa20  ICONVERT TO DEC 
7963 O34216 004737 os354e JSR * 


CZR6M00 RK611/06 SS VERIF 1 MACYI11 30A(1052) 10-JAN-78 12:16 PAGE 151 SEQ 0429 


CZR6MD.P11 10-JAN-78 11:48 TYPTMS - TYPE RESULTS OF SEEK TIMING MEASUREMENTS SEQ 0150 
7964 034222 004737 053736 JSR PC QaSSUPRS Pe | IT 
7965 O34226 104401 012003 TYPE alitcr TYPE “US * 
7966 034232 000207 RTS 
oees 
7970 ; = LEKKKKKKRAKRERAS SER SAAR ARAAAALAARAAAARARARARARLARALRAAAAAAAAEAES 
7371 jATvPneX TYPE MAX MEAS’D TIME IN US. POINTER TO LO TIME IS IN Ri 
2858 59 8 
2374 034234 LO#4OL 011765 +/pmax: TYPE aMAXEG , TY ook 19 so: Go 
? 7 O3aeue pag 38 053542 isk Bd? aeepa20 Cer ER! 18° e 
7977 O34 004737 053736 JSR PC’ a8SSUPRS : TYPE I 
7978 O342Se 104401 012003 TYPE micros : TYPE tis “ 
7379 034256 9d00207 RTS PC 
7388 
7 83 ; Eee eee eee aaa Mena D Tine IN Us, POINTER TO LO TIME Ic. 
7ees jATyPav ave - - TYPE AVERAGE MEAS’D TIME IN US. POINTER TO LO TIME IS IN Rl 
2388 536 3 36 636 6 9 
7 4260 104401 011774 +YPAVG: TYPE AVGEQ ; TYPE “AV 
7988 264 010146 MOV Ri,-(SP) !GET POINTER TO LO TIME 
7989 034266 004737 JSR PC, a8SD0B82D :CONVERT TO DEC 
ae Rhee Far sees tbe | Patgeae PhS EYEE Als - 
7992 034302 000207 RTS Pc 
7993 
7994 
5age 
73937 = RERRERERERERERERRRRRR ARREARS RRR E RRR RARARRRRARRRKRKKRHAKAKKE 
7998 th LODSEC - THIS SUBROUTINE LOADS THE CONTENTS OF RO INTO ALL 
799 ;#256(DEC) WORDS OF THE DATA BUFFER (RWBUF ) . 
5 
8001 034304 10440 LADSEC: SAVREG ;SAVE RO-RS 
034 012701 063554 MOV #RWBUF : SS OF DATA BUF INTO R1 
8003 034312 010021 2s: MOV RO, chess : PUT NTO BUFFER 
8004 O34314 0201 064554 CMP Ri; @RWBUF+S12. ;SEE He Bs WORDS WRITTEN YET 
O343 og1374 BNE 2s’ BR F NOT DONE YET 
43, 104410 REG ?RESTORE RO- 
8007 034324 000207 RTS PC : RETURN 
8010 
8014 : = PEEKRREREREREREREREKRRAAKRAKKAARARRERRARRRRARSRRAKAAKKRRRRAKARERKE 
Bule i TRKCHK : THIS SUBROUTINE DOES A WRITE “CHECK OF : OF SECTOR FS ON CYL 
go18 HETRACK RURGER + 1906") FoR’ THAT Pat iéut ULAR R BLOCK OF K OF ABB tA Hal YEN. 
is j THE P ER BLOCK MUST BE PRE- ER PARAMETERS 
2016 cavauunneneuanavsexeuanansnsenossiaeseaeuauaxauaeuenenaxseaenate 
8017 034326 104407 tRKCHK: SAVREG S 
8018 034330 O16S546 oop0004 MOV P.SECT(RS),-(SP)’ ; SAVE TRACK AND SECTOR PARAMETERS 
8019 034334 105065 oo000S CLRB P. TRCK(RS)’ ;CLEAR THE TRACK NO. 


CZR6MD0 RK611/06 SS VERIF + 
CZR6M0.P11 
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8020 
8021 340 068709 rosa 
Se: ERIS ery Baile 
es Nes Mares ele 
Bose 1 ooocos 

3 2 233 000003 
se Gai 

4 12665 000004 
8030 034406 104410 
8031 034410 000207 
8032 
8033 
8034 
8035 
80. 
803 
8038 
8039 O34412 104407 

034414 012701 000010 

8041 420 2700 007116 
B04, 4e4 4737 OS26e0 
8043 034430 013720 052720 
8044 0244 013720 OSe716 
804S O3444O 005301 
8046 O3444e 001370 
8047 O344 104410 
8048 O34446 000207 
8049 
80S0 
8051 
8052 
8053 
8054 
s0ssS 
8056 
8057 
8058 
80s3 
8060 
8061 
BES BRED APE coscon 
8064 O344S6 005416 
8065 034460 O05046 
80) 116616 000003 
806 000002 
806 nents 16708 
anes 661 pppoas 
cri Gaels Sure ites 
8073 02 


034Se0 0014 
8074 O34See O12700 oo00e4 
8075S O34Se6 Oe20016 


Tle 
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TYPTMS - TYPE RESULTS OF SEEK TIMING 


I MEASUREMENTS 
“LOAD THE DATA BUFFER WITH THE CURRENT TRACK NO. 
2s: MOVB aa ;GET TRACK NO riNTo 
$08 aj00 LOD POO) DATA WITH 
000001 MOVB SRT CHK 6. CHND( RED -SET WRITE CHECK 
JSR P ;PERFORM THE WRITE 
INCB P. TRCK(RS) s INCRENENT HE TRAC 
ooooos CMPB #3,P.TRCK(RS) SEE IF DONE WITH 
BNE es. ;BR If NOT YE 
(SP)+,P.SECT(RS)’ - RESTOR Tee R AND 
RESREG ;RESTORE RO-RS 
RTS PC : RETURN 


NO. 
TRACK NO. 
OMMAND 


“Pp 


NO. 
L TRACKS 
SECTOR PARAMETERS 


36 Se 3 He HE Ae 0 AE A 0 A a a a a a a 
RANDOM NUMBER 


:KLODP14 - GENERATE SIXTEEN PSEUDO- 
i SINTO THE PATTERN 14 T 


S AND LOAD THEM 


FE Shaded 598-55 talalalaladedeata LE talalatatalal-f-tyt-tel-+ el + talalatalalalalalalalalalalaleetaiaiaiatale 


COoPi4: ‘sa ROV” 98. RI tPRIT LOOP COUNTER TO 8. 

MOV #PAT14, RO i GET ADDRESS 0 OF PATTERN 14 BUFFER 
4$: JSR PC, SRAND : GENERATE me RANDOM NUMBERS 

MOV $LONUM, (RO)+ :PUT ONE NOMBE NTO PATTERN 

MOV SHINUM, (RO)+ ?PUT OTHER NO. INTO PATTERN 

DEC Ri :SEE IF Je WORDS LOADED YET 

NE 4§ :BR IF NOT YET 

RESREG *RESTORE RO-RS 

RTS PC RETURN 


»$BTTL CaROUTINE te USE gf a 
HECOMPUTE. THe HH pac K BOORE 
? WORD NO. AT T 

meets 


a6 at AOR abs WHICH I cn? 
poe pout aie 15 Use 


N LASTHC: 


SSTTL  FINAOR ~ COMPUTE FINK PACK ADDRESS nee 
TAT fae HS COMELE TED» TO 
ont COMP: OF 


THE 
$9 HIS IS USED WITH 
B RonPUTE THE CORRESPONDING 
ih ° Pete inte INSEC. 
K ADDRESS OF A SOFTWARE 


nribMerrit Vert eereeeenenteeerrr ett rt eeeeet rete eeeeee een 


FtNADR: SAVREG ; Save RO 
MOV LASTWC,-(SP) FL WORD COUNT 
NEG (SP) MAKE IT POSITIVE 
18S: CLR -(SP) ROOM ON STACK 
Core Bcapyt oo sre LOCATION ON Stack 
oooo02 MOVB P.SECT(RS),2(SP)° stone CCAR TING SECT 
ADD 2(5P), (SP) ;OETERMINE FINAL SECT RESS 
CLR e(SP) :C EAR ots 2% TRACKS CRANSPERRED 
TSTB FORMAT BE TERN INE THE F T 
a 420 RO 5 eR of 2a cree 
19S: CMP RO, (SP) :CHECK FOR SECTOR OVERFLOW 


SES 0430 
SEQ 0151 


+ 100(0CT) 


Rs nesses 


cenergG. Vee SS VE 
ZREMD . P 10-JAN-7 
80 034530 101004 
80 60016 
80 ean 
as fees 
By ee Ge 
808 pauees beeeie 
8084 
808s 4 lee716 
80 101009 
80 1 16 
8088 
g090 Tea? 
8091 034610 beeei6 
80392 034614 011637 
8033 Ralese 726 
Bo9s Osvest 00207 
8096 
8097 
8098 
80393 
8100 
8101 
810e 
8103 
8104 
8105 
8106 
ei Re 
8108 
Bil OsHe30 O137ue 
Bile sues bases 
811 1007 
8114 QO3464 le 
8115 O346 Bistor 
8116 OQO346 O01e701 
8117 
giig 
811 1 
8120 001003 
8lei 005200 
gigs 006201 
gis 74 000772 
Biss O34708 06300 
81e6 034702 006300 
8127 pace? 006300 
8128 706 006300 
81e9 034710 2700 
8130 034714 012746 
8131 034720 013701 


006216 
000020 
oos60e 
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1 
NADR - COMPUTE FINAL PACK ADDRES 


BHI 20S ;NO, CHECK IF SECTOR CORR ECT 
SUB RO, (SP) ; DECREMENT SECTOR COUN Y 20 OR 22 
INC 2($P) ; INCREMENT CKS TRANSFERRED 
BR 193 :CHECK FOR SECTOR RFLOW 
20S: MOVB (SP)+,F INSEC : STORE F of Teac 
CLR -(SP) : MAKE RDoH RACKS TRANSFERRED 
MOVB P.TRCK (RS), (SP) j STORE TARTING 
ADD 2(SP),(S :DETERMINE FINAL TRACK ADDRESS 
CLR 2(SP)’ ?CLEAR FI YLINDER 
21S: CMPB #3, (SP) :CHECK FOR Reick OVERFLOW 
BHI 22$ i NO CHECK KF TRACK 
SUB #3, (SP) : DECRE Franek COUNT BY 3 
INC 2(SP) ; INCR aed COUNT 
BR 215 :CHECK FOR TRACK OVERFLOW 
228: MOVB (SP)+, FINTRK ST TRACK 
ADD P.CYLA(RS), (SP) ;CALCULATE FINAL CYLINDER 
MOV (SP) FINCYL ;STORE FINAL CYLINDE 
TST (SP)+ ;CLEAN OFF STACK 
RESREG H Pee - 
TS PC : 


SB TTL LODBUF ~ LOAD THE READ/WRITE DATA GUFFER © oo 


&p ae THE READ/WRI TA FER 
sATHIS SUBROUT HE READ/WRITE DATA BUFFER (POINTED TO BY 
PRS) WITH T APPROPR AT REPEATING DATA PATTERN. IF 
| EPAREMET NTRY, T TA WHICH Ist LOADED 1S COMPRISED 
ALL HE Pat PATTERNS eis (QUICK VERIFY DEFAULT DATA TEST) 
ST PATRN IS NO XFR 


OF _ WORDS IN T WOS 
*#OF THE PATTERN BeNTiFIED BY. 7 BY THE NO. OF THE BIT SET IN R1 ON 
EAN I BUFF’ 


i XENTRY ARE L 
Mee rr ee Pe eee PPE eee eee eee ET ET ETE EP ETE E ET 


paaien SAVREG ;SAVE RO 
MOV WOSXFR, Re ;GET NO. WORDS 
TST :SEE_IF QUICK VERIFY DATA TEST DESIRED 
BNE 3$ ;BR IF NO CK VERIFY 
MOV #PATOO, RO SET DATA PATTERN STARTING ADDRESS 
MOV #256. .-(SP) :SET PATTERN WORD COU 
MOV #RWBUF , R1 >SET BUFFER ADDRESS 
BR 30S PR CEED 
33 CLR 0 :IN TTERN NUMBER 
4§ BIT #B1TO,R1 :SEE IF THIS BIT IS SET 
BNE = :BR I THIS BIT is SET 
INC RO : INCREMENT PATTERN NO. 
ASR Ri :SHIFT TO EXAMINE NEXT BIT 
BR 4§ :BR TO CHECK NEXT BIT 
6S: ASL RO ‘MULTIPLY PATTERN NO. BY 32(DEC) 
ASL RO 
ASL RO 
ASL RO 
ASL RO 
ADD #PATOO,RO ;GET ADDRESS OF DESIRED PATTERN 
MOV #16. ,-\SP) :SET PATTERN WORD COUNT 
MOV PMA.RI :SET BUFFER ADDRESS 


SEQ 0431 
SEQ 01Se 


Kle 


ee eS SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 154 SEQ 0432 


MO 10-JAN-78 11:48 LODBUF - LOAD THE READ/WRITE DATA BUFFER SEQ 0153 
1 724 005737 OSS716 TST $KT11 — IF MEM MGT PRESENT 
135 8 730 100036 BPL 30$ gr if Noy PRESEN 
134 ;BUFFER LOAD LOOP | FOR MEM MGT S ARTS HE 
1 738 0137 003206 172354 MOV SaKTPARE Fel UP “OBKING PAR 
136 0527 000001 177572 BIS SEIT it Y MANAGEMENT 
1 74 042701 160000 BIC #1600 + FORCE Oe SCAT ION THRU KIPARG 
138 Oi 140000 BIS #140000 
1 1 225: MOV RO,R3 ;GET_A_ COPY OF PATTERN ADDRESS 
140 11604 MOV (SP) ry, : INIT PATTERN WORD 
tai 1 24S: MOV (R3}+ (R1)+ LOAD a A WORD INTO FER 
14 4 1 o20000 BIT #81T13,R1 ;SEE IF RFLOW TO NEXT PAGE 
143 0014 BEQ 26S BR IF NO OW 
144 o00200 172354 ADD #200, 38KIPAR& ; INCREMENT Y 4K FOR NEW PAGE 
14S 042701 o20000 BIC #681T13,R1 :SET PAGE = 6 AGAIN 
146 G0530¢ 26S: DEC Re ; CRE NT COUNTER 
14 14 BEQ 28s ?BR IF ALL 
1 19 DEC RY ; DE MENT PATTERN WORD COU 
14 1 1363 BNE 24s : t NOT WITH BATTERN YET 
1 14 000760 BR 225 *BR TO P ONE Ae PATTERN 
181 035016 042737 OO00001 177572 28S: BIC #81T0,a#SRO ;DISABLE MEMORY 
035024 000410 BR 44g >GO TO T 
53 -BUFFER LOAD LOOP FOR NO MEM MGT STARTS HERE 
54 10003 40S: MOV RO RS ;GET A COPY OF PATTERN ADDRESS 
ss 11604 MOV (SP) ; INIT PATTERN COUNT 
28 012321 34S: MOV (2934" ¢R1)4 3L A DATA WORD INTO BUFFER 
5 005302 DEC Re :DECREMENT WORD COUNTER 
001403 BEQ 44S BR F ALL 
005304 DEC RY : DECREMEN TTERN WORD COUNT 
001373 BNE 34S ?BR IF NOT DONE WITH PATTERN YET 
035044 000770 BR 30$ :BR 79 REPEAT THE PATTERN 
bsetes os4i6 we: ile. ( RESTORE ROCKS 
035052 000207 RTS PC RET 


ipeogeasesee tee ore 


° L _CMPBUF - SOFTWARE COMPARE DA 
;*#THIS oe NPnate) 10. A_SOFTWARE COMPARE OF THE R/W DATA BUFFER (POINTED 
; Y ) TO ay ree DATA E REPEATING DATA PATTERN. IF 

; PARAMETER PATRN = 0 ON ENTRY 


: DATA IS COMPRISED OF ALL THE PATTERNS 
}#00-15 (QUICK VER IFY DEFAULT OD bata T 
j¥IF_PATRN IT SET IN R1 ON ENTRY IDENTIFIES THE 


NO 
REPEATING Bara patTER RN TOC 


ee ae ee ee ee ee ee ee ee eb he 


CER PORK SSeS oe Non coe 


H ,RbSebesneasenuOHEREOEESEODEOESSSeEnsseesinnaHeneedestesestesee 
035054 104407 bhPBUF: SAVREG ;SAVE RO-RS 
5056 112737 900040 062105 nove #40 01+38. :RESTORE ERROR MSG PARAMS 
4 012737 000007 063446 MOV #7, OF 25+ 
72 013702 005572 MOV WOSXFR, Re ;SET NO. OF WORDS 
03507 005037 005542 CLR CRACH ; CLEAR COMPARE ERROR COUNT 
1 004737 041704 ISR C, REPSUP STORE PRE VC FOR POSS. PRINT 
0351 005737 o005544 TST PATRN SEE F THIS IS QUICK VERIFY DEFAULT DATA TEST 
035112 001007 BNE 3$ :BR IF NOT 
035114 012700 o06216 MOV #PATOO, RO :GET DATA PATTERN STARTING ADDR 
035120 012746 o00400 MOV #256. .-(SP) :SET PATTERN WORD COUNT 
035124 012701 0O635S4 MOV #RWBUF , R1 :SET BUFFER ADDRESS 


&s perbett “TSS Te 


sessommenens ji 
sessanenssses * 


Sgn 
a Ren 


ee ey eg ang ony ay 


ONOU CWO 


RRRBRE 
Res 


fo 
RULED 


—- 


NERSELNGFEDS LVS 


BES 


038360 
035362 


035366 
035372 
035376 


RIF 1 
8 11:48 


000001 


ES | 


006216 
0620 
S6 

0SS716 


003206 


761 e000 
140000 


1723S4 
020000 
062737 000200 

020000 
00 


035740 


Be3i5 


010237 o01202 
7 001208 


005574 
005576 
00$577 
004737 O40212 
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001216 


172354 


063446 


001202 
005600 


10-JAN-78 12:16 PAGE 1ss SEQ 0433 
MPBUF - SOFTWARE COMPARE DATA SEQ 0154 
R g ; PROCE 
x: ff 8 FRPPEERrreen vo. 
4§: BIT #B1TO,R1 ; SEE IF THis BIT IS SET 
BNE 6$ j8R IF 1 HIS 8 BIT IS SET 
ask Re : NCEE to KAN MINE NEXT xT BIT 
BR 4 ‘BRT TO 10,6 NEE BF 
6S: ASL RO :MULTIPLY PATTERN NO. BY 32(DEC) 
ASL RO 
ASL RO 
ASL RO 
ASL RO 
ADD #PATOO RO ;GET ADDRESS OF DESIRED PATTERN 
MOV -tspP) ;PATTERN WO WORD COUNT 
ney enn a ier LEER M MGT BRESENT 
Be if NOT PRE SENT 


BPL 
er FOR MEM MGT START 


S' HERE 


v SAVPAR | T UP WORK 
Be HURABTR—TURORTCAFOn tamu xzron 
228: i Vy hs aPiet woes PATTERN | QODRESS 
24S: CHP tase (R1)+ WORD TO PATTERN WORD 
nov SKIPARG, SREGIE } T PAR RTE fO-ERR NTOUT 
25s: Err #eiT13, R1 ; E IF LOW TO NEXT PAGE 
ADD S00) Sex TPARE i INC PAR BY 4k FOR NEW PAGE 
26S: EC HA :DECRERERT WBRB COUNTER 
BNE e7$ BR T ALL DONE YET 
278: DEC RY i PSTTERH WORD C 
NE 4 iF NOT DONG WITH BOTSERN YET 
R 2 iBR fo OLB PATTERN 
: COMPARE LOOP FOR NO MEM MGT STAR 
40S: V R RS, nee RN N ADDRESS 
34S: CMP {Ra)4, (RL) Conan A WORD TO PATTERN WORD 
4 
31S: LRB 01+38. ital oe in COnPRR FORM MSG 
OV #5, DF2S+2 ADJUST PRROR DATA WORD COUNT 
:COMMON COMPARE ERROR HANDLER 
455: nov R ash GIO io ant WORD NO. 
MOV SREGIO;LASTWC  ;GET 2’S COMP OF WORD NO. 
JSR PC, FINADR ; COMPUTE ACTUAL PACK ADRS 
SAVREG RO-RS 
MOV FINCYL,RO GET CYL 
ROVE EINES. SEY LEE 
JSR PC, BOSRCK :SEE IF THIS SECTOR LISTED BAD 


[oe 


oo. Tweet SS VERIF 1 
CZR6MD.P 


10-JAN-78 11:48 


ore 


SiR sEREBSSSOOS 


Bw 





035306 


MACY11 a ood A 
MPBUF - 


oosso4 


488: 


36S: 


38S: 


4 42S: 


44S: 


SOS: 


40$: 


10-JAN-78 
SOFTWARE C 
RESREG 
BIT #BADSEC , RECODE 
oi RBacn 
BNE 365 
TSTB UBMPRS 
Q 46S 
MOV CRMPHO, SREGS 
v CRMPLO; 
ERROR [16 
ERROR 117 
48s 
V 8-1, SREGS 
CLR SREGE 
CLR G7 
BRS Bett , aSWR 
ene sts , SCRACH 
BLT 4 
MP 8 GS, FINCYL 
BNE £ Gb, FINTRK 
ene SReG7, FINSEC 
Rive FANAe: BRERE 
MOVB. FINSEC, SREG7 
FEGOR b4Fci0 
mov ~2(R3), SREGLL 
roy gee ld: BREE 
CLR SREG1 
ROL G14 
5 Bae‘ Hecus 
ADD SRase $REG13 
MOV R1,$REGIS 
SUB #2’ SREG1S 
ERROR 63 
BIT #8176, ISWR 
BNE 4g 
TST PATRN 
Paha 
op tC 
DEC R2 
BEG sus 
DEC 4 
BNE 53s 
IMP 308 


;SEE IF 


12:16 PAGE 156 
OMPARE DATA 


;RESTORE RO-RS 


i Be Ak on a REPORT ERROR 


;BR_IF nes alt ww ate ee 
Bere” not 
;8 


;GET CURRENT MAP REG 0 


;DATA MISCOMPARE (11770) 


HEADING FOR ERROR MSG 
LING CYL NO. 


Ste Tr ALL T RROR COUNT 
F ALL . RS SHOULD BE REPORTED 
eee TF RO OCDEC) ERRORS Y YET 


;BR IF ERROR LIMIT EXCEEDED 
ee: eal CYL 

saa oF oe FFERENT TRACK 
BEE pF “BIEFERENT SECTOR 


;SET NEW PACK ADRS FOR PRINTOUT 


ier WORD Fo ADDRESS 


he Ee PRE cat ADDRESS 


;GET VIRT. ADRS FOR PRINTOUT 


ore £°9h eNO BAR ROR pATHOUL Dé 
ise if sUST 1 ERROR SHOULD 
; SEE IF DEFAULT DATA T 

M MGT PRESENT 


ADRS. 
E REPORTED 
REPORTED 


:BR IF por PRESENT 


O HANDLE MEM MGT 

i DECREMENT Done COUNTER 

t BECREMENT P TTERN WORD COUNT 
;BR IF _NOT DONE WITH PAT Mla YET 
‘JUMP TO REPEAT THE PATTERN 


SEQ 0434 
SEQ 0155S 


eth Sh! 


seegaeeere : 


@ 
Lt) 


AtAtat at at 
ee 


DONO £Wlu-O 


iietate 


[a] 


DDOwDMDMMOwMMD 
jal 


Sy 


sor 


Monomd 
WW 


ratAtntatatny 


Se TSE ETS 


Sas 


erry 


LSS ssn 


RIF 1 
8 11:46 


312 
5716 


ooo001 


oooode 017754 


000400 


053204 
003176 
000012 





Nle 


PACT AOR?) APTI Banbbal oat 1 


53S: IMP ais 
54s: TST Til ; SEE 
Bic #6110, a4sRo iBT E MEM MG 
56S: (SP)+ : POP THE STACK 
RESREG Re T 


RTS PC 


g i SM IN'. CIECK CURRENT DATA TRANSFER Linits” 6S ee 
:& CHKLIM - CHECK mines f ar bata. 
:#THIS y I au ARON A TRANSFER SHOULD BE 


+ EORENSFER HOULD OW Ses iy “ 
} #WORD CBUNT N P.WCCRS) OvEREL ge te Dour 7 A orc" whee 
:#IF NO SI ER CAN 
; #ADDRESS ING THE CALL TO cmtin, 
ie CYL 1456 FOR RK any 
: 18Ro TRANSFER" RETU ss> 
To ~pagpeeneemessepegae "1 =. gugnemepenameme 
CMP P.CYLN(RS),LCMS ; a net D. CHECK ADDR. LIMITS YET 
BLT ang ; ve 
SAVREG : 
CLR UMLO1 
CLR Il 
MP LSTCYL,P.CYLN(RS) -SEE IF ON LAST CYL 
BNE 85 ;BR_IF_NOT 
CMPB #2,P.TRCK(RS)  ;SEE IF ON TRACK 2, CYL 632/1456 
BEQ 36s ?BR IF CAN’T DO TRANSFER 
8S: TSTB MAT : TERMINE THE FORMAT 
Q O$ : F 22(DEC) SECTORS 
;STORE CONSTANTS Aa OR 20(DEC) sectors 
MOV ,-(SP)_3NO. OF WORDS ON 2 TRACKS 
OV #15360. *-(SP) NO. OF WORDS PER CYL 
MOV #5120. .-(SP) ?NO. OF WORDS PER TRACK 
HO #20. ,-tSP) :NO. OF SECTORS 
«STORE CONSTANTS FoR 22(DEC) SECTORS 
los: MOV #11 ,-(SP)  ;NO. OF WORDS ON 2 TRACKS 
MOV #1 2° =(SP) 3NO. OF WORDS PER Cy 
MOV #5632. .-(SP) ?NO. OF WORDS PER TRACK 
MOV see. ,-tSP) *NO. OF SECTORS 
-COMPUTE NO. OF WORDS LEFT ON THIS TRACK 
les: MOV (SP)+,R3 ;GET NO. OF SECTORS 
MOVB p sect cRS) ,Re ;GET CURRENT SECTOR NO. 
SUB Re. R3 NO. OF SECTORS LEFT 
CLR Re’ GET NO. OF WOS IN THESE SECTORS 
MOV #256. ,RS 
CLR R4 
ISR PC,M.DPIM 
MOV R3 SUMLOL ;STORE THIS NO. 
12¢SP *RESTORE PARAM BLK ADDR 


MOV 
;COMPUTE NO. OF LSRBS VERT ON THIS CYLINDER 


CZ 


8356 
8357 


cust ta a 


coco GD 
N3e 
0 


00 0D 
17) 
NNN 
wre 


SeRsRas oa 


ne Gs Bee 


SRRRRRSEES 


oa 
ws el tt et) 
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12703 900002 
017760 
116 ooo00s 
0S3204 

e037 003176 
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MPBUF - SOFTWARE COMPARE DATA 
MOV 2 
C L 63271456 


MP rsten., P. cyLncrsi *e CY 
BNE 14s ‘BAe fF NOT 
DEC 3 ?DECREMENT TRACK LIMIT TO 1 FOR CYL 632/1456 
14S: MOVB P. TRCK(RS) ,Re GET CURRENT TRACK NO. 
SUB Re, :GET NO. OF TRACKS LEFT 
CLR R a GET NO. OF WORDS IN THESE TRACKS 
JSR PC,M.OPIM ’ “ 
roy RatepocRS OOO ORE BARON BUC’ 
COMPUTE NO. OF WORDS ON WHOLE CYLINDERS REMAINING 
MOV LCM1,R3 sCYL LIMIT =631714SS 
SUB PCYLN(RS) ,R3 :GET NO. OF WHOLE CYLS LEFT 
CLR R3 
16S: CLR Re 
MOV (SP)+,RS ;GET_NO. OF WDS PER CYL 
JSR PCM. OPIM ‘COMPUTE NO. OF _WDS iN THESE WHOLE CYLS 
ADD SURLO1, RS ?ADD THESE WOS TO TOTA 
ADD SUMHI1,R2 
MOV &(SP),RS STORE PARAM BLK ADDR 
;ADD THE NO. OF WOS ON TRACKS 0 0, i* eaye 632/1456 
CMP LS CYL, P.CYLNCRS) | -SEE IF CYL = 6327/1456 
BNE 18$ BRIE NOT 63271456 
TST {Sp)+ :POP § 
18S: ADD (SP)+,R3 ;ADD WOS ON TRKS 0,1, CYL 63271456 
ADC Re 


;GET DESIRED WORD COUNT 


20$: CLR RO WORD COUNT HI BITS 
HOV p,WCCRS) RI GET THE DESIRED WORD COUNT 
BNE 225 ;BR_IF WORD COUNT NOT 65,536(DEC) 
NC HI WORD COUNT = 


I RO ;SET 1 
; SUBTRACT algae COUNT FROM_NO. OF WORDS LEFT TO DETERMINE Ep Care Le. 


N R OF WORDS LEFT IS IN Ree -R3, WORD COUNT IS IN RO- 
bog: SUB R1,R3 LO PARTS 
SBC R 
SUB RO,R2 a PARTS 
BPL 3 :B WORD COUNT NOT > NO. OF WDS LEFT 
;SCALE DOWN WORD COUNT TO AVOID OVERFLOW (SUBTRACT THE EXCESS) 
ADD R3,R1 R1 ;GET NEW WORD COUNT IN 
reais MOV R1,P.WC(RS) oat NEW WORD COUNT IN PARAM BLOCK 
308: RESREG PTE ROR RO-RS 
45: AbD ue, (SP) MAL RETURN PC 
36S: MOV a(SP), (SP) Erk TaNo TRANSFER” RETURN PC 
RESREG *RESTORE RO-RS 
RTS PC : RETURN 


SEQ 0436 
SEQ 0157 


Se 


C13 
ESREHO-Pit TB-3AN-9E iitwe = "°CY1) SBASAABE) cAPTIARE BomBAAe Dara 15° EPEGise 


84le A CTLOUT = THES SUBROUTINE CHECKS FOR (4) OR (12) TTY INPUT. 
ae pea ere mate Tee, 8 ete or Chisel ee 
gute Ha This Tc og DEE RITED ane iNE TACK IS RE-INIT- 
e412 Betton" aL: 35 NO INPUT, Dor INPUTS OTHER THAN (tC) OR (12), 
e413 iy NO cL - isn N+ Bc, CTLOUT 
Buss 27 o00001 003120 bitOUTE Gees aL Teting "See Ee conmentey mumnine Tests 
Byes Oaea9 aioe? SNE BR NOT RUNNING Teote 
8424 036342 005737 005532 TST INTCHR EF ANY TT Try Y INPUT 
Buse Oaeac6 §SpSe5? aC: BR TE 
oY 737 003116 18 LAG E IF AULT MODE RUN 
ey Oaese 2737 000003 o0ss32 CMPB , INTCHR eet F (tC) TYPED 

0 7 SOY SORVTST, RO : T RETURN AER = 
3) Oaeave B43; 2s: Tye OVLAB ‘ see Fab wagoP URRENTLY Y BVERLAID 


T 
+4 
027262 J PC, GETXDP IF NECESSARY 
poa0t 005532 sea Reet T pron int pee Ee ee WORD 
Mena> 


41 CLR ST LEAR T 
gus? Baeuie ey Etke  xoPSvo ae my a SAVED FLAG 
8438 4 01 2164 003046 MOV SERRHDL A Bch ADDRESS 
B39 4 1 10g MOV aSTACK, BP creo: 
4 ll 113 000001 MOVB cmoces rr eBece 
8441 O36442 0047 040316 ISR RecA COMO 
BYY 001102 CLR Sf ORVCAL ; ng THE TEST NO. 
ea 4 19 MP *EXIT FROM TESTS 
4G i 000032 o0SS32 4S: cNPS #032, INTCHR ; iif notes YPED 
Be O3eues BOx048 015340 nov eur, RO ier ET RETURN bdr = INPUTP 
Bg Bau? ise? 000003 005532 12S: CMPB , INTCHR ie Ee F(t *C) TYPED 
Sue] iuuet Bronet TYPE“ CNTROY LTVPe Sha “HALT REONT WHEN RDY™ 
Bue 1 00 4134 MOV br TERG, RO ISET HALT PRE RR DRESS 
1 BR > TAKE EXIT 
gued Osesee 1 ; 000007 ooss32 7S: CMPB #007, INTCHR : SEE IF ( $G) TYPED 
B4ee 026370 aid PC, GTSWRG : OPEN TWARE SWR FOR MODIFICATION 
a4 ead 904737 026040 8S: ISR PC; PREPKB ;ENABLE KBD INPUT AGAIN 
40 7 10S: RTS PC’ RETURN 
8459 
8461 
8462 banrecn  URTTE A BLOCK OF dO0COCT) MORDS ONTO Disk AND PERFORM 
63 WRT . WRITE A BLOCK OF 4 T) 2 MORDS ONTO AND PERFORM 
64 :#Q WRITE CHECK. PARAMETER BLO M OfusT -LOA ERK WITH PACK 
Bibs s BAQORESS. DATA WORD IS PASSED IN R3 ON ENTRY. RWBUF IS THE BUFFER 


USE 
8467 TTT Tri i Titi titi titi ititttitttitiiitititiitiiitiiiiitiiiiiires) 
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CZREMD.P11 10-JAN-78 11:48 CMPBUF - SOF THARE COMPARE DATA SEG 0159 
8468 036542 104407 WRTSEC: SAVREG ;SAVE RO-RS 
8469 ;LOAD THE R/W BUFFER WITH DATA 


girl feet Gera, Bsdst0 ee ye 
oy G3eeeR Bor asS — ug DEC. CRO? BONE YET 


75 ;SET UP TE 
84 036 063554 000010 MOV #RWBUF .P.BALOCRS) ADDRESS 
sie? hertz biS3ee eatin 000012 ae .. #-400,P.WCCRS) ) sé FE loRD COUN 
7 76 277 23 ooo0001 ’ VB TAaP - CHNDCRS) T_WRITE_COMMAND 
Baad B3eeos ddaes? Sandie 88 BC, BRVCAL wri FE" THe {Oars 
1 -PERFORM WRITE C 
8482 036610 112765 000131 oo0001 és: MOVB pros P. quae) - SET WRITE CHECK COMMAND 
eg: E 004737 040316 Jak VCAL ;PERFORN i RITE CHECK 
104410 SREG tREST RO- 
848s 000207 RTS ve RETURN 
8486 
se 
gig ; LINCRHA INCREMENT MA BY WORD COUNT INP MCRD) 
; INC INCREMENT MA BY WORD COUNT IN P.WC(RS) 
Bude 104407 i : aunaeuseusacsaunseuseuseenserseriaunainainuenauiaaensensexseeas 
84 retail bocan1 * CLR R1 ; 
8494 036632 16509 000012 MOV P.WCC(RS),RO ;GET WORD C 
8495 BNE 4§ jBR IF NOT “85, £36 (DEC) 
By 4, pi BR’ Ag + a eNT hue 
s4ae ay attend 4$: NEG RO cont TRUE WORD COUN 
Bes ees 63: cLe :DOUBLE THE WORD LOUNT TO GET BYTES 
0366 OL RO 
1 O36 101 ROL Ri 
g50e p05762 ADD RO,MA ;ADD IT TO COMPUTE NEW MA 
105764 Mate 
gece D3ee70 fonaio 005764 RESREG a RESTORE RO-RS 
B506 036672 000207 RES PC RETURN 
ge09 
8510 « SEKRSKKRERERSLSKESKRKAKERERERLRAAAAARARRARKRKEKRERKRAAKRARHAEKAAHRKREEE 
Boil jAREDGSE - RE READ FACTORY BSF INTO BSFACT, AND READ SOFTWARE BSF 
gels nf A, . 4 A ea nen TET 
Bete Hea 004737 REDESF: ISR P INITS INIT THE 
Bele 00 142765 BSab30 000007 BIcB Ae’ CF Te. CSIH(RS) sei> FOR 22 SECTOR FORMAT 
8517 706 ii 76 001 MOVE aRODSTA,P .SHIND CRS) ;SET ten DATA COMMAND 
g518 714 01376 1 oo00e2 MOV ts Yb P.CYLNC(RS) CYL = 632/14S6 
851 7 11276 000005 MOVB #2,P.TRCK(RS)  ;SET TRACK = 2 
8520 730 012703 o0001e MOV #10. R23 :SET FACTORY BSF SECTOR LIMIT 
1 734 1057 7 003125 TSTB F T 
22 740 1403 BEQ 6 ;BR IF 22 SECTORS 
8523 036742 105265 oo00004 INCB P. SECT(RS) :SET STARTING FACTORY BSF SECTOR NO. 
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MPBUF - SOFTWARE COMPARE DATA 
INC 
6S: MOV #-400,P.WC(RS) ;SET WORD COUNT FOR 1 SECTOR 
MOV #BSFACT,P.BALO(RS) ;SET BA FOR FACTORY BSF 
8S: MOV #BDSCHD;A:ABNL ;SET’ERROR HANDLER FOR BSF READ 
CLRB WCEFLG ; INIT THE ERROR FLAG 
ISR PC. DRYCAL :READ T ACTORY BSF 
ee ig Bed ar 
#2,P.SECT(RS) ; CHECK NEXT SECTOR 
CMPB Pgee (RS) ,R3 i SE rer nb that, EXCEEDED YET 
10S: aOR Pca REPSUP j GATHER CTatts FOR PRINTOUT 
ERR j ABORT ING- READ 
12$: MOV HERG BALO(RS) ;5et Bs FOR om RECORD 
MOVB R3,P. ceeriBeye ; Set TING SE CTOR NO. 
MOV #22. RS SET ee efor L IMIT 
TSTB FORMAT ; I SECTOR FORMAT 
Sat u73 R3 : rib9 CTOR LIMIT 
14S: MOV HBOSCHO, A ABNL Set R FOR BSF READ 
CLRB EFLG ;INIT THE E FLAG 
ISR PC, DRVCAL > READ SOFTWARE BSF 
TSTB WEFLG ; SEE IF ANY ERRORS 
iat ABS sectirs) SeHEGK NEXT 
cnPe SECT(RS) ,R3 jSEE IF LINDY. EXCEEDED YET 
BR 10$ :REPORT ERROR AND ABORT 
16S: MOV BERRHOL , A. ABNL *RESTORE ERROR HANDLER ADRS 
RTS PC RETURN 
;*THIS IS THE ABN DRIVER RETURN WHICH IS USED TO HANDLE 
:¥POSSIBLE ERRORS IN READING SECTORS. 
&OSCHD: BIT GSE! HVRC! DTE!OPI20CK,P_ER(RS) chee TF ANY READ ERRORS 
kid ERRHOL ;GO_HANDLE OTHER ERRO RROR 
4S: INCB WCEFLG :SET ERROR F 
IMP RE TNML :TAKE NORMAL DRIVER RETURN 


jj ESREEMEMEUEE FACTORY AND COPTHARE BAD SECTOR FILES (BSF’S) 
:AMITH HeiMack WER, TRACK, AND Tee FoR NO. OF EACH BAD SECTOR 
SARA TELY? IN A TABLE OF OCTAL VALUES, FOR EACH OF THE 


Sraiss"ecesgrorererenvenennsseananegy nsneosneneemnsennes 


passe Bt RO-RS 
*INIT BSF FILE INDICATOR 
MOV #BSFACT+10,RO :ADRS OF DATA IN FACTORY BSF 


ACT :TYPE “FACTORY” 
TYPE  BOSEC ‘TYPE “BAD SECTORS” 
3S: TYPE ’ DHEO41 ‘TYPE "“CYLNDR TRACK SECTOR” 
TYPE CRL 
CLR Ri ; INIT LIMIT COUNTER 


SEQ 0439 


SEQ 0160 
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UF - SOFTWARE COMPARE DATA 


4S: TST 


8$: MOV 


BL 
14S: TST 
B 


B 
18$: RESREG 
RTS 


(RO) 
8S 

R1 

14S 

, NOFALS 
$CRLF 

4§ 
(RO)+,-(SP) 
SPACE2 
{Ro), R3 


a 
R3,-(SP) 


#BSSOFT+10,RO0 
FTBS 


PC 


;SEE IF @ SECTOR LISTED HERE 
BR IF YES 
:SEE IF FILE IS, EMPTY 
:BR IF NOT EMPTY 
TY PE "NO 
: TYPE <CR>, <LF> 
SED ie NO. 
oO SEPARATORS 
TRACK AND SECTOR 
eat THE TRACK NO. 
TYPE IT 
TYPE SEPARATORS 
poi SECTOR NO. 
; TYPE IT 
; INCR THE POINTER 
: INCR THE COUNTER 


;SEE_IF LIMIT REACHED IN THIS FILE 
te IF _NOT YET 


ee INDICATOR FOR SOFT. FILE 


;ADRS OF DATA IN SOFTWARE  . 
; TYPE “SOFTWARE BAD SECTORS 
;GO_ TYPE SOFT. 

;RESTORE RO- 

; RETURN 


LSECSIASSHISNSEPESHHORSSTUSSSESOSS DS RSSR ERS S ESSE eEeeeLeeeeeLees 


FINMEM OMPU OF 
ee argo BY BSE ERROR) 
A ib folk d-t-tet-t--bibeb tthe Lt 


FiNMEM: SAV REG 


6$: 


8S: INC 


B 
128: SWAB 


P.CYLN(RS) ,RO 
P. TRCK(RS) |R1 
p ,SECT(RS) Re 
P.DCYL(RS) ,RO 
P.OTS+1(RS),R1 


8$ 
P.OTS(RS),Re 
les 

R3 

PC, INCRSC 

6$ 


R3 
R3,WOSXFR 


XFERRED oN ae XFER 


S 
AND STORE IT I XFR. 
secur! 1g -siciaioieiaiaioiei 


Rs RS 
T ORIG. CYL NO. 
T_TRACK NO. 


; SECTOR NO. 
; INIT SECTOR COUNT TO O 
ORIG. AND CURRENT CYLS 


ORS 
ef ADRS ARE EQUAL 
oR SECTOR COUNT 
;INCR PACK ADRS BY 1 SECTOR 
;GO COMPARE ADDRESSES 
; COMPUTE NO. OF WORDS XFERRED 


ORE IT 
i RESTORE RO-RS 


SEQ 0440 
SEQ O161 
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CZR6MD.P11 10-JAN-78 11:48 MPBUF - SOFTWARE COMPARE DATA SEQ 0162 
8636 037420 000207 RTS PC ; RETURN 
3639 
rat UINCRSC > ANCRENENT PACK ADORESS TO NEXT SECTOR es ann rc 
Beve rie ney LINDER Te PASSED AND RETURNED IN RO’ TRACK IN R1, AND SECTOR 
gee 037422 012704 oDD0e5 jangattaneseeeaneeacegeeaneenceeneenpetezseeaeeneeestenseasees 
ge4 O37aee 105737 003125 rSte FOR SRMAT ieee IF 22 SECTOR FORMAT 
864 o37434 12704 000023 MOV #19. ,R4 :SET SECTOR LIMIT 
864 7440 202 4S: INC Re :INCR. SECTOR NO. 
Beat Baris stags ge Ee 1 ata aipapegnsh ces 
8652 037446 oOsSo02 CLR Re :SET SECTOR = O 
8653 0374S0 005201 INC Ri !INCR. TRACK NO. 
86 4 eM B62 oooo02 cn Rl #2 ‘BEE iF 38 TRACK LIMIT EXCEEDED 
Be O01 CLR RI :SET CRACK 0 
8657 037462 005200 INC RO :INCR. CYLINDER NO. 
Bb58 037464 000207 6S: RTS PC : RETURN 
Beet 
tg i iMIOXER ~ MNID-TRANSFER PARAMETER UPDATE SUBROUTINE 
aa ;#THIS SUBROU INE UPDATES PMA paaee a M mer REGS UNIBUS MAP,P.BALO(RS), 
8665 ist BHT (RE), afi P.WC The PARATION ON TO RESUME A TRANSFER 
BEE 037466 104407 j | Saeuanuanaanuadustnetasenenseuseseiueaiaxsanaeaaxxaxaexaecaesey 
937470 G047 37 037336 7SR PC FINMEN iSOnpuTE nO. OF WORDS XFERRED 
7474 0165) rf) MOV P.OCYL(RS),RO  ;GET CYL NO. 
g671 037500 116501 000027 Move p: Breas) Ae jGET TRACK No. 
ae FY . 
8673 37810 008 395 nea JSR pC, INC Renee , : ACRERE NY. PRK ADRS TO NEXT SECTOR 
teas 
Bere 37820 1101 alates MOVB Rai Bests separ e FRAG 
8676 7524 11 000004 MOVB Re :UPDATE SECTOR 
8677 037530 013703 005572 mov 5 GET LNG. OF WORDS XFERRED 
BE78 o375a0 esate ADD Evi (RS) ‘apoATE P. Wc ( CRSD 
BEBO g37eu4 O04 cLR :GET BYTES XFERRED 
86 30 bE ROL Ra 
Beas gos602 ADD Ra PHA ;UPDATE PMA, PMA+2 
Bees HOS604 ADD RY, PMA+2 
13765 005602 000010 MOV PMA, P.BALO(RS) ;UPDATE P.BALOCRS) 
8687 037574 013700 OOS604 MOV PMA+2._RO 
g rt pe ba007 Bie routs, ;UPDATE P.BAHI(RS) 
8690 037610 5737 055716 TST :SEE IF MEM MGT 
8691 037614 100002 BPL stl 


CZR6M00 RK611/06 SS VERIF 1 
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CMPBUF - SOFTWARE COMPARE DATA 


RESREG PC,PREPAR 5 Pe Re BORE” AND UNIBUS MAP 


16S: 


icvPRNG — SAVE INITIAL PARPETERS FOR TRANSFER” eee 


iASVERS ~ BOVE AMTLIAL. PoRare TEES aetae® 


SELAKAAAARALAALAERAAA AERA AARERERAARARERLARAAAESRLA AAA LALHAA AAAS 


&UPRMS: SAVREG 
MOV #PARMO+2, RO : Be AMS 
MOV sSAVPRS Ri ; OF AREA 
whe NEG HOSKER } HOGFR hare IT POST TIVE 
— CCR PmAt — iI t pHa+e TO 0 
TST PATRN :SEE IF DEFAULT DATA TEST 
2 f 9 oa HET puena 
BeeES MOV nate, PuAse :SET PMA+2=MA+2 
GTPRMS: SAVREG ; SAV! - 
MOV #SAVPRS, RO i BERS BP SAVE AREA 
MOV #PARMO+2, R1 : 
GTO: MOV r} : F Ss 
6$: MOV (RO)+, (R1)+ :MOVE A 
DEC Re ‘Be IF E YET 
BE REG : Est RO-RS 
RTS PC : RETURN 


A ttt tel A A nk he tt a eh et dt ah + tet tt le | 
: RF DAT R, AND HANDLE BAD SECTORS, IF 
: ENCOUN ERE THE COMMAND MMAND MUS "SET IN THE PARAM BLK. THIS SuB- 
tSROUTINE IS SUBSTITUTED FOR DRV WHEN BAD SECTORS MUST BE HANDLED. 
a a | ee ee tte 


+RNSFR MOV R4,-(SP) ; STACK 
CLR RY CL “ERROR FL INDICATOR 
- CLRB WCEFLG Beer we 
oosso4 ; BIT HICERR, RECODE Puce He eaSa FuNGTION 
003141 MOVB #1, WCEFLG BR T WCE ERROR FLAG 
005504 ss: BIT SBSERR, RECODE ‘Bee IF BSE ERROR OCCURRED 
INC Bs i PACA BSE ERROR INDICATOR 
ISR PC, MIDXFR UPDATE PARAMS TO RESUME XFER 
TST P.WCCRS) $ UPD IF ENTIRE XFER IS COMPLETED 
BNE 4g ?BR IF NOT 
6S: Tot RY ; SEE IF BNY BSE ERRORS OCCURRED 


8s 
JSR PC,GTPRMS 


; RESTORE ORIGINAL PARAMS OF XFER 
JSR PC} SVPRMS 2 


;RESTORE WOSXFR, PMA, PMA+ 


SES O442 
SEQ 0163 
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CZREMD.P11 10-JAN-78 11:48 CMPBUF - SOFTWARE COMPARE DATA SEQ D164 
g748 940032 005737 oSS716 TST $KT11 gee IF MeN MGT PRESENT 
8750 O40040 004737 O26604 JSR PC, PREPAR : PREPARE MEM MGT AND U.M. 
8751 O40044 012604 Qs: MOV (SP +, RY jREST ORE R 
8752 O4004% (C00207 RTS ; RETURN 
8753 
grec 
es ‘S6TTL SEARCH BAD SECTOR TABLES ROUTINE 0°00) Soueeenens 
8758 ;*THIS ROUTINE RETURNS A LIST OF BAD SECTORS FOUND I 
8759 *THE SPECIFIC I E ( tL TOR TWARE OR BAD Ce ATOR FACTORY) 
8760 tx FOR THE SPECIFIC CYLINDER AND TRACK DESIRED. RO AND R1 MUST 
8761 j XCONTAIN THE CYLINDER AND TRACK, RESPECTIVELY 
8763 : STHE LIST OF BAD SECTORS IS FOUND ON THE STACK WHEN THE ROUTINE 
gee HSRETURNS 10, THE CALLER. FOUND FOR THIS CYLINDER AND TRACKS 
aces 04 010237 001266 jjasgeenatavasuaiaseateranovansearstueseseneseenexanenstarataes 
8768 O40054 010337 001270 MOV RS’ STHPS 
8769 O40060 012637 001272 MOV (SP)+, STMPY ; STORE RETURN CONTENTS OF RY 
8770 g4O0bs 01 14Ge MOV (R4) *23 -GET ADDRESS OF BAD SECTOR TABLE TO SEARCH 
8771 0066 012437 001264 MOV (R4)$, STAPL nee TUP FOR LENGTH OF BAD SECTOR TABLE 
8772 g4007¢ 737 OO1000 001264 ADD #1000) $TMP1 
8773 O401 CL R3 ;CLEAR_R3 FOR COUNT 
B774 040106 062702 000010 ms ADD #10, Re ;SET Ree FOR POINTER TO CYLINDER ENTRY 
8776 ret 100430 7 BMI S$ > YES- TONE = 
8777 O40 Le oo12 cH RO, (R2) i TEST oot BBO SE SECTOR IN PRESENT CYL 
8779 O4011 3 ooo004 ADD #4, Re jELSE BUMP chine RN 
8780 O401 Gede3 001264 CMP Re; STMP1 : ES OUT OF TABLE 
8781 O401 1 BGE S$ ; YES-EXIT 
8782 O40130 000766 BR 1$ > LOOP 
87’ 040136 9057e¢ 3S: TST (R2)+ : TRACK CHECK - PUT POINTER AT TRK/SEC BYTE 
87 0401 ile 001302 MOV (Re), STMP1O :GET TRK/SEC WORD 
8785 O40140 042737 174377 001302 BIC #174377, STMP1O s CLeRe ALL BUT TRACK 
cer uoiee doivgs OOS Geer Sghrioelimt i Cee Op BU SEcTOR Alma Son Stix 
8788 Bugis 7ee TST (Re)+ ELSE, BUNE, PO OINTER TO NNEST CYL WORD 
8790 940160 S203 4$: I R3 : BUMP 1 2 L couNT 
8791 Ol62 012246 MOV (R2)+,-(SP) :PUT TRK/SEC WORD ON STACK 
8792 040164 2716 177700 BIC #177700, (SP) ;CLEAR ALL BUT SECTOR NUMBER 
8793 040170 000746 BR 1$ *GO CHECK REST FILE 
8794 040172 010346 SS: MOV R3,-(SP) *EXIT - PUT R OF BAD 
8795 174 01370¢ 001266 MOV stipe, Re t BEC TORS ON STACK-RESTORE 
8796 O40200 013703 001270 MOV TMP3,R3 TERS 
8797 O40204 013746 O01e72 MOV STMPY! -(SP) :PUT RETURN ON STACK 
8798 O40210 OO00204 RTS R4 T 
Loe GCE ae EU cee ceemme ire 
8801 SPHIS & RBUTIRES WILL SEARCH BOTH TABLES TO DETERMINE IF A 
g8de2 : #SPECIFIC INE ba IS LISTED AS BAD. IF THE SECTOR IS LISTED IN 


8803 :*TABLES THE ROUTINE SETS THE “BADSEC” FLAG AND RETURNS. IF the’ 5 CTOR 


cgnergo RK611/06 SS VERIF 1 
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ahaa 
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WWW 
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03 
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040226 


003232 
040226 
oosso4 


oosso4 


000010 


BAD SECTOR CHECK ROUTINE 


;*IS NOT LISTED THE FLAG IS RESET. 
He HEHEHE HEHE HE HEHE HEHEHE HEHE HE HE EH HE HE EEE 


bdsRcK: SAVREG 


#BSFACT,1S ;SET TABLE TO SEARCH 
2s: ISR R4, SRHTBS :GO SEARCH IT 
1S: . WORD :TABLE ADDRESS GOES HERE 
MOV (SPi+,R3 :GET NUMBER OF SECTORS, IF ANY 
BNE 6 :IF ANY, GO TEST WHICH ONES 
7$: CMP 1$, #B8SSOFT :ELSE TEST IF OTHER TABLE ALREADY SEARCHED 
BEQ 35 :IF YES-EXI 
MOV #BSSOFT, 1S :SET OTHER TABLE FOR SEARCH 
BR 2g *GO SEARCH IT 
3$: BIC #BADSEC,RECODE CLEAR BAD SECTOR BIT 
4§: RESREG 
RTS PC ; RETURN 
6S: CMP (SP)+,R2 *THIS SECTOR_IN TABLE? 
BEQ 8S ?YES-GO SET BIT & EXIT 
DEC R3 *DECREMENT BAD SECTOR COUNT 
BNE 6$ :IF NOT ZERO-CHECK NEXT ENTRY 
BR 75 ;ELSE GO SEARCH OTHER TABLE 
8S: BIS #BADSEC,RECODE SET BAD SECTOR BIT 
95: DEC R3 :CLEAR STACK OF OTHER BAD SECTOR 
BEQ ug : NUMBER 
TST (SP)+ 
BR 95 sEXIT 


s RERRERKRRAARR RRR ARE ARR A RRR RAE ERE AA RELA RR AARA AREA AREA REA ALAAEREE 


éETTL CALL DRIVER ROUTINE 
; XENTRY ISR PC, ORV CAL 

WITH RS POINTING TO PARAMETER BLOCK 
f ARETURN RTS PC 


ite ROUTINE ER THe ANI TIOTE AS A suesyeret OPERATION BY 
OCK MUST 4 SET UP 


;* Ae CALE oF RS MUST POINT TO i PARAMETER 
<8. oft WHEN THE ROUTINE IS CALLED. 


VTE MOTTE MALS 2 OG OPERTION 1. SPELT 
T ERRINATTON HB HANDLER ROUTINES Ui WILL ata M THE DONE 


jaSit z 
j #ELAG WHICH KEYS fhe ROUTINE TO RETURN T 
- HH seeuseneuaeuannaenaenaeneHHeenGHaeHOnHaHHGaKONSENOENAENOEONS 


bave 
SAVREG ;SAVE RO-RS 
ISR PC, STALL :PERFORM A STALL IF REQUIRED 
JSR PC’ CTLOUT ; CHECK FOR (tC) OR (t2) KBD INPUT 
CLRB DONE EAR FLAG 
CLRB DRNAFG *CLEAR DRIVE SIEZED BY OTHER | PORT FLAG 
ISR PC, STRCMD :STORE PREV AND CURRENT | COMMANDS 
STB DULACS ; SEE IF DUAL-ACCESS 
BEQ Z IF NOT 


26 
CLR aSTKS : DISABLE KBD INPUT 
MOVB ORIVE,RKCS2(R2) ;SET DRIVE NO. IN RKCS2 


SEQ 0444 


SEQ 0165 


CZR6MD00 _RK611/06 SS VERIF 1 
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set 
8863 
ee 


ePRVSEV EN. 01. SRAREERRARU Ss 


040S74 
040600 
040602 
8839 040604 
83900 
8901 
830e 
8303 
8304 
8905S 
83906 040606 
8907 040610 
83908 040614 
8909 
83910 O40620 
8911 0622 
89le 0624 
8913 040626 
8914 040630 
8391S 040632 


012712 

ae 
ae 
fees 


PeeR ae 
goggrarg 


; 


a 
ro 


a 


290 
ZR 
Sn 


: 


O00000 OO- 
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ooo001 
000200 


re pee 
seer 


a 
5B 


if 


00Se32 
00S246 
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L DRIVER ROUTINE 


167 


MOV #BITO, (Re) ;SELECT THE DRIV 
20S: BIT 88117, (Re) ‘WAIT FOR C. READY 
BIT #BIT12,RKCS2(R2) — vist IF NED ERROR SET 
Bit #81T0,RKDS(R2) jSEE IF DRIVE IS AVAILABLE 
MOV 8100000, (R2) j 1SSUE_ CONTROLLER CLEAR 
MOV #100,R3 *SET OUTER COUNTER 
32S: CLR R1 :INIT INNER COUNTER 
335: INC RL :INCR INNER COUNTER 
DEC R3 ;DECR OUTER COUNTER 
Bye SBorT ee eater Place ET 
MOVB SSELDRV, MD+1';SET PREV C = SELECT DRIVE 
ROVE SEDUE Bata "Sbe4 Bn Who" eG Bey tong te 
MOV CRE) B csi CRS) >GET ORARENT ’ ENTS OF RKCS1 
JSR ,1.CST1 $GO READ CONTROLLER REGS 
JSR PC’ REPSUP :SET UP REGS FOR PRINTOUT 
ale COM Suse a 
22S: girs T.DRV(RO) , RKASOF 41 (RE) eat £0 ypRIVE ATTENTION 
30S: nOVE DRIVE ,RKCS2(R2) Tene bat NO. IN_RKCS2 
24s: BIT tT7, (Re) : FOR C ROLLER READY 
28S: MOV #109009, (R2) ; ISSUE CONTROLLER CLEAR 
26S: MOV RS}4S >GET BLOCK ADDRESS 
ISR PC’C. INIT :CALL DRIVER 
4S: . WORD 7P.B. SS GOES HERE 
6S: ISR PC,W.WTCH *CALL WATCH DOG 
gee Roose 
12S: RESREG tRESTORE RO-RS 
RTS PC : YES-RE TURN 


5 5 36 He RE SE HE SE AE ME A HE HE HE eH HE HE HE HE HE HH HE HH HE HE HH EEE 
;*STRCMD - STORE PREVIOUS AND CURRENT SUBSYSTEM COMMANDS 


= > RERKKKKKARKRRERERRERRRKREKRKHKEE 
StRCMD: SAVREG 


0 #PRVCMD,R1 
MOV #COMSTR, RO 
;STORE PREVIOUS COMMAND 
MOV (RO)+, (R1)+ 
MOV (RO)+; (R1)+ 
MOV (RO)+)(R1)+ 
MOV (RO)+? (R1)+ 
MOV (RO)+) (R1)+ 
MOV (RO)+) (R1)+ 


MERE R AREER REE ER EEE ER 


;SAVE RO-RS 
;ADOR OF PREV COMMAND STORAGE 
;ADDR OF CURRENT COMMAND STORAGE 


SEQ O44S 
SEQ 0166 


CZR6MD0 RK611/ S VERIF 1 MACY 11 308 10 O-JAN-78 12:16 PAGE 168 
pa at Pil 08 -FaN~ oa 11:48 (ORR iver ROUT INE ee oe Bez 
8916 0634 105737 003144 TSTB UBMPRS ;SEE_ IF UNIBUS MAP PRESENT 
1 49 001414 BEQ 45 R NOT 
1 0642 0137 005270 005264 MOV CRMPHO , PRMPHO STORE PREV U.B. MAP REG 0 
80 137 OO5e66 005262 MOV CRMPLO, PRIPLD 
137 170202 005270 MOV oreeran Set ;STORE CURRENT U.B. MAP REG 0 
g3e) 4 013737 170200 005266 MOV SeNaPL cRMPLO 
: STORE CURRENT COMMAND 
8923 040672 012701 oD0Sse46 4s: #COMSTR,R1 
gas? 940675 Bt } MO v (Re )+, (Ri) + ;RS POINTS TO DRIVER PARAM BLK 
MOV (R5)+, (R1)+ 
8926 0702 012521 MOV (RS)+, (R1)+ 
07 12521 MOV (RS)+, (R1)+ 
ni 1 i pv (R5)+, (R1)+ 
71 1 MOV (R5)+) (R1D+ 
8930 O40712 104410 RESREG ;RESTORE RO-RS 
8931 040714 900207 RTS PC : RETURN 
8932 
EES 
B335 SEITE RIVER ERRORSFTED EETUD ROVE wey wo cong 
7 SR B Y THe DRIVER WHEN NO ERROR 
8436 ins BEEN be fe bFe5"th HE OPE THE ROUTINE SETS THE 
8333 5 S00 E FLAG THAT IS TESTED one THE DRIVER C 
1  SeSebeseuaanenseynnanannsnnsnsesqnenetssqesansqunntenonenneneT 
8942 040716 152737 000377 003123 i : BISB ;SET THE DONE FL 
8943 7 32737 100000 o05504 BIT SANYDER, RECODE ;TEST IF ANY DATA ERROR 
8944 7 1403 BEQ 2s ?IF_NO - DO ERROR RECOVERY PRINT TEST 
Baue buasdd dnodig Coste SERB GGRENT SELEGR ERROR COUNT 
8947 O40742 105737 003126 2s: TSTB ERRCNT $ CHECK IF ANY ERRORS HAVE OCCURRED 
040746 001410 BEQ - SKIP TO EXIT 
834 07 008037 001174 CLR REGS 
8 0754 113737 003126 001174 MOVB ERRCNT, SREGS vent RETRY COUN 
8951 0762 104101 ERROR 101 : PRINT RETRY SNCCESSFUL MESSAGE 
B35¢ 0764 }98037 003126 CLRB RRCNT ict EAR ERROR COUNT 
89s 07 5037 ooS504 1S: CLR E CODE LEAR RECOVERY FLAGS 
4 040774 9000207 P TURN 
g3ss 036363 a EHH HR HHH R BEI 
‘S8TTL TYPE ERROR ROUTINE 
8957 ;¥ENTRY - ISR PC, TYPERR 
8958 5 ane TU - RTS PC’ 
8960 SSTHIS ROUTINE USES THE “ITEM CONTROL BYTE” (SITEMB) TO DETERMINE WHICH 
8961 :¥ERROR IS TO BE REPORTED. IT THEN USES THE “ERROR TABLE” (SERRTB) 
Babe j XENTRY 10. DEF INE WHAT INFORMATION IS TO BE REPORTED CONCERNING 
BSE4 ; = SEGRE REGKESSRERR GEESE GREEK RKKAAAAAARRAARRAERERRRRRRR RARER RKEAAEE 
S 040776 104407 +{PERR: SAVREG 
8966 O4i000 105237 003130 INCB DRVERS ; INCR ERROR COUNT FOR THIS DRIVE 
8967 041004 032737 OO0040 005770 BIT #BITS,CS :SEE IF DRIVE SHOULD BE DROPPED 
96. IF ERROR LIMIT EXCEEDED 
$69 o41012 oO01412 BEQ 95 R IF NOT 
8970 O41014 123727 003130 oD0024 CMPB ORVERS, #20. :SEE IF 20(DEC) ERRORS EXCEEDED 
8971 O41022 Oo02406 BLT 3g :BR IF NOT 


CZR6MD0 RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 169 ae oy 
CZR6MD.P11 10-JAN-78 11:'8 TYPE ERROR ROUTINE @ 0168 











041024 105037 003130 CLRB DRVERS :CLEAR,, ORIVE | ERROR | COUNT 
Sa 104401 011310 TYEE DROPDR 8 GOR a 
140072 98: Br maui, aSuR RTEAY De Teatest 1 88 
1 041454 IMP Be 
1 6S: CLR RO as RO FOR ERROR NUMBER 
i cLR Re :INIT INDENT INDICATOR 
1 001114 MOVB SITEMB, RO ;ENTER ERROR NUMBER 
pst 0 Cc &3 :FORM INDEX FOR ERROR TABLE 
. 
But 1S: Ab ROeRRTB RO FORM ADDRESS OF ERROR ENTRY 
041102 MOV (RO)+, 2 GET EM POINTER 
3996 1108 BE 3 :BRANCH IF THERE ISN’T ONE 
8986 1 ReLF 
B9¢ 1114 TY *ASeSP2 ;TYPE “ae” 
8991 041120 TYPE TYPE ERROR MESSAGE (EM) 
6392 11 2s: . WORD 3 fem EM POINTER GOES HERE 
8233 11 33: MOV (RO)+,4S 
94 11 BEQ it 3 Sh IF THERE ISN’T ONE 
Dull ze TYP; » $CRL BLE 
11 TYP TYPE ” TEST ™ 
041142 MOV STSTNRe -(SP) GET TEST NO. ON STACK 
11 TYPOS TYPE IT 
11 .BYTE : 2D GITS 
3000 1151 “BYTE :SUPPRESS LEADING ZEROS 
300 118e TYPE CRELF 
gpa2 11 137754 BIT &BITi2,aSWR ; REPORT DESCRIPTION ONLY ? 
3003 1164 BNE 20S :BR I YES 
goo4 11 TYPE ,DH10S i eyPE “PREVIOUS COMMAND : 
it TPE eT +10 ; TYPE PREV COMMAND HEADER 
= ie ge om 
3008 uieie MOV BSAC bos Re Star TING ADDR 0 F PREV CMND VALUES 
301 121 30S: MOV (Re)+,-tSP) T A WORD ON 
1 1 TyPoc HTVeE 
1 1 T SPACE2 TY PARATORS 
1 1 1 DEC Ri ?SEE IF 7 VALUES TYPED YET 
9014 041230 001372 BNE :BR IF NOT 
301 1 1 o1 901 15 TY »SCRLF 
901 1 104401 0124 TY "SPACES ; INDENT 
301 : 4 ‘ 401 06 1245 TYPE  DH10e :TYPE HDR FOR BA DATA 
3018 Bg 1828 1Bdupt p0sa38 TYP » SEREE2 ; INDENT 
9020 041256 012246 MOV tR2)+,-(SP) 
308 1 1 cS TYPOC ;TYPE PREV. HI BA BITS 
1 i 401 012473 TYPE SPACE2 
902 1 11246 MOV tRe),-(SP) 
9024 O4ie 1g44de TYPOC ; TYPE PREV. LO BA BITS 
90e5 O4%le7e 104401 012457 TYPE , CRELF 
9026 041276 104401 TYPE ;TYPE DATA HEADER 
9027 041300 o00000 4g: .WORD O :DH POINTER GOES HERE 





N13 
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CZR6MD.P11 10-JAN-78 11:48 TYPE ERROR ROUTINE SEQ 0169 
1 001315 TYPE SCRLF 
1 CLR 5 ; INIT I NT INDICATOR 
1 010000 137622 SS: BIT #B1T12,aSwR :REPOR SCRIPTION ONLY ? 
30 1 BNE 20$ :BR_IF 
1 1 MOV (RO)+,R1 :GET DT POINTER 
1 4 BEQ 20$ ; BRANCH IF THERE ARE NONE 
3034 1 1 MOV (ROj+,RO :GET INTER 
30 i $1 108 Hove «(ROD 2° RS FORE RUORE NUMBER OF DATA WORDS 
1 TSTB (RO)+’ ; BUMP past FORMA - periORD 
30 1 7 TST R3 :TEST IF DAT A FORE THIS HEADER 
30 1 417 BEQ Las :NO = P DATA PRINT 
3040 1 7 TST S ;SEE I 
304 1 1002 11$ :BR_IF_NOT 
1 } 401 012473 TY SPACE2 i IN T 
1 13146 11$: MOV a(R1)+,-(SP) ; FIRST DATA WORD ON STACK 
go44 1 O44 TYPOC :T 
1 DEC R3 : ATA WORDS 
1 14 6EO 12$ 3; NO- H 
304 i 401 012473 TYPE pence : r SEPARATORS 
1 708 125 TST R2 : SEE IF cc <CR>,<LF> NEEDED 
1 14 BE 14S :BR 
i 1 401 001315 TYPE SCRLF :TYPE IT 
1 302 14S DEC Re : DH’S? 
1 BLE 20$ : NO-BRANCH 
4 1 1 041434 15S: MOV (RO)+, 16S *GET NEXT DH POINTER 
3055 1 ios 10 TSTB (RO) SEE ANY DATA FOR HOR 
3058 1 1004 BNE 34S >BR I YES 
9057 O41 04401 001315 TY SCRLF :SKIP EXTRA LINE 
3058 Out 05005 CLR RS. ;RE-INIT INDENT INDICATOR 
3080 Buy 108 34S COM RS ; COMPL LEMENT INDENT INDICATOR 
1 14 1 BNE 36S *BR IF NO INDENT REQUIRED 
30 0414 104401 012473 TYPE , SPACE2 : INDENT 
9063 041432 Ou4O1 36S: TYPE ? TYPE DH 
9064 O44 168: .WORD O :DH POINTER GOES HERE 
3065 1436 104401 001315 TYPE SCRLF 
9066 O41442 105710 TSTB tRO) ;TYPE A DT? 
9067 O41444 001331 BNE 10$ : YES-BRANCH 
$068 O41446 062700 ooD002 ADD #2, RO : INCREMENT DF POINTER 
90639 O0414S2e 000751 BR 14$ :SEE IF END OF DF BLOCK 
$070 O41454 104410 20S: RESREG 
$071 041456 000207 RTS Cc 
$072 : « SLKKRKHKKRERAKREARAARRSEERAKAARERERARRAKERAKKARAAKRKH RA KRHARHRKKRARAKHKAAEE 
$073 ’SBTTL CONTROLLER ERROR REPORTER ROUTINE 
9074 ; #ENTRY: JSR PC, CONERR 
3076 j ARE TURN: 
9077 {THIS ROUTINE DECODES T THE CONTROLLER ERROR WORD AND 
9078 ; ¥REPOR TS THE APPROPRIATE MESSAGE. THE RK611 REGISTERS ARE 
3079 *RETRIEVED FROM THE RK611 AND PLACED IN N THE P AMETER 
2080 ;xBLOCK. T HIS 1 IS DONE BECAUSE PARM O MAY NOT Be” VALID 
9082 ; SCETECTECSTSTOCTOCT OT TT TTT TTT TTT TTT TT TT TTT Tt tttttt tt tt tt ttt ttt 


9083 O41460 104407 bbNERR: SAVREG ;SAVE RO-PS 


B14 


-SBTTL REP T ROUTING 
oars ee LOADS ALL THE PARAMETER BLOCK DATA TO BE REPORTED 
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3084 1 1 7 377 003123 BISB #377, DONE ;SET DONE F 
3085 14 1Bes39 eevee INCB ERRCAT + INCREMENT ERROR COUN 
1474 004737 044352 ISR PC, TOPROC ; LOAD RK REGS INTO SREGS 
1 =, 000001 003052 BIT #B1TO,E - CONT s ERROR 0 Or 
3089 i oo 4 ERROR es ?CLEAR CONT DID NOT CLEAR ERROR 
$09 12 4 30 oo0002 003052 1S: BIT #BIT1,£.CONT ;ERROR 1? 
_ 3 1 1 BEQ 2s : NO-BRANCH 
| 3038 O41 be ERROR ze !NO ATTENTION IN ATTENTION SUM REG 
| 30% 941890 G3e737 oooocY oos0S2 28: BIT = SBIT2,E.CONT ERROR. 8° 
| 3097 Ries 105732 003137 TsTB DRNAFG jSEE IF ORIVE WAS SIEZED BY OTHER PORT 
/ 9099 1546 TpS39 003140 INCB REISSU :SET FLAG TO RE-ISSUE COMMAND 
| 3100 O4155¢ 104 6 15S: ERROR 66 :UNSOLICITED ATTENTION 
3108 041856 37 000010 o030S2 3s: BIT #B81T3,E.CONT ;ERROR 3? 
81 1564 001402 BEQ 4g NO-BRANCH 
| 3108 041566 067 ERROR 87 S UNEXPECTED DATA TYPE ERROR 
3108 15 036737 000020 o030S2 4s: BIT #B81T4,E.CONT ;ERROR 4? 
 g10 1205 14e BEQ c$  NO-BRANCH 
3108 041602 70 ERROR 70 SATTENTION DID NOT RESET WITH CLEAR 
| 9110 Buleoe 032737 o00040 o030S2 SS: BIT #B1TS,E.CONT ;ERROR 5? 
| 49111 O41614 1 BEQ 6$ NO-BRANCH 
giie O46 104071 ERROR 7 SUBSYS CLEAR DIDN’T CLEAR DRIVE ATTENTION 
i 
gii4 Out 2737 000400 o03052 6S: BIT 881T8,E.CONT 
3113 butesa 493955 001000 003052 38s Brpor *81T9 E.CONT a OO a 
| 9118 O41642 001401 . BEQ si 
| 8126 Gulese 452957 ooz000 oos0s2 9s a) ine cae ee ee ee ee 
g12) O41659 O01401 : gba ims 
3155 Bu ieeD 493953 100000 003052 10S hae ¢8IT15 E.CONT ae eee ee 
9124 O41666 001401 BEQ a Womens 
gies Gllbre 18s ys: EES HS  SEPTAE PEAAB SELECT 
aig, Gilboo Soarss SOR05S HSS aS ceuuns GD OS SET cae enmOR ORO 
aiss | UHEHHET SHHEES Sie a EEEEEEhS senna eReReReE 
9131 
3132 :*INTO THE PR TEMPORARY REGISTERS FOR REPORTING. ALL THESE MAY 
3133 anil jahOT Be INCLUDED IN THE REPORT, BUT THEY ARE LOADED ANYWAY 

9135 041704 104407 * SAVREG 

9136 041706 005037 oDsSso6 CLR ERRCOM ERROR COMMAND STORE 

gH, Giirle Aiges force mm ve eet capp.cmmcol esis nr eS 

| $139 041724 O16520 oD0002 MOV = P.CYLNTRS), (RO)+ 


NSS hse 


A 
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$140 041730 116520 ooo00s MOVB P. TRCK(RS), (RO)+ 
9141 041734 105020 CLRB (RO)4+ 
3138 Bui 38 i ooo0004 Hoy P.SECT(RS), (RO)+ 
144 000012 v P.WCC(RS), (RO)+ 
ais o41780 012700 001174 MOV 8 Go RO wa 
zie BIPEe Bindi boroes Be aes un an arr 
3133 Gliese Bikes SBBBIE CS ey a ha I ues ray 
aoe | i? 
ik Ge fe ERM IR. er ye 
Sr ceed Uae psc, alae (7 Be 
i b o4 O16 mov P. (RS), (RO? RO)+ ERMINE TER) BUT IT IS 
3126 fare 8} MOV P:becr ), ¢ (a 
9159 1 000034 MOV P.ER(RS): (RO)+ 
9160 : MOV P.ADO(RS), (RO)+ 
gibL 04 16 MOV Boos )> (RO)+ 
91 1 MOV P.AOL(RS), (RO)+ 
9163 Os 1 MOV Soe RE 
9164 1 MOV P.ALO(RS), (RO)+ 
3165 042066 O165e0 mov P-B10(RS), (RO) + 
gie$ BYSB5E Bi ees8 MOV B- Bit fe} > (R3y 
316s STORE PREVIOUS COMMAND FOR PRINTOUT aay mar anein 
3153 sted BiseR4 MOV SPRUGHB’ BO BBR 2 SF BR PREV CMND STORAGE 
aie Gusts 108081 6, BFE Pmt tng, 
g174 Oie128 105ce! Se ee ae 
a7 Bitsy fdegs| sooo Rove Stross (R133 FRc 
9178 21 111021 MOVB (RO), (R1)+ ; SECTOR 
9179 042134 105021 CLRE (Ri) et ale eee 
318) usia8 118063 TB VB 8 {RR} + 68 Ht Ba ee 
aie else pioaet my cans 
gies Gusiss BIST Hvac AO), RL> sO A BITS 
9186 O42162 000207 RTS 
9187 s « SEKKRKKRAASASSAERERERRHEAAKREAARAAARRRERERAARALAAARAAALAAAARARAAA SHAE 
3188 sol bay REPORT E 
$1 RY PC, ERRHOL 
3130 i RTS PC’ 
HE TINTS COUPEE 8, C*-NER Bo TUReCEVERNINED ht EAP SSnfenBE RS = 
9194 YOEING. EXECUTED AND GE TES THE PROPER ERROR MESSAGE. 
9195 seaacdunctcscssuasussesooussuscseoussssennsceussuccesseueeneuss 
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9196 
Bastee 123799 oo0s77 cosie3 “RRMOL: BAYES #377, DONE 


74 AT T 
pies0G O8e537 ppechs OOSSO4 ER2ENT: cre RECS R, RECODE ape IF SND gover Ft 8 lon 
648819 874788 ooe714 oy Bese eet POPPREM BLOCK CHINE \ 
See Eee Me cl eg 
ei Guna ta 


se yey 2 Testen TS oN 


Oo 
0 


CATASTROPHIC NATURE ARE FIRST 
; TEST ED. 


tIF AN ERROR IS FOUND SET 
: THAT ERROR 18 i SBE AND 


TE aby Yio Re CRO Raohs Ae Set 


ESTE et ae ne 


Re ee ee 
WONT CWO 


32 
: 
Se 
: 
: 
: 
z 
: 


ORE oreo 





: SECOND 
P. R4 TO STER 
BS888d ooo020 pty aiPE, Be 2e8%a5) HEE" ieee Pts RES} 
ERROR 
eta oosso4¥ Bis thie prion. 
ooo020 1S: BIT ay M,P.CS2(R5) ;TEST NON-EXISTANT MEMORY 
ERROR 2 
posso4¥ BIS #ABORT , RECODE 
043660 IMP 
010000 ooo0020 2s: BIT D,P.CS2(RS) ;TEST NON-EXISTANT DRIVE 
BS 000400 o00020 BIT #UFE,P.CS2(RS) ;TEST IF NED & UFE BOTH SET 
PEROR 3e° NED & UFE BOTH SET ERROR 
$240 puSs3e baci 33 043660 IMP 335 . 
9241 O4e342 104 38S: ERROR 3, ;NED ONLY 
g545 Rusad4 sk: 4p Bd8888 ooo020 «3s: a dure, P.cs2cRS) ;TEST UNIT FIELD ERROR 
9244 042356 001412 BEQ 4g 
ee Z 010000 oD0020 £ BNED,P.CS2(RS) ; iT ST LE UFE & NED BOTH SET 
1040 ERROR 35 REPORT NED & UFE BOTH SET 
g5ug eed Opubes | Otaee0 395 ERROR 378 ;REPORT UFE ONLY 
359 Bd5328 baci 3? 043660 ° 375 


MP 
9251 O4e404 032765 000100 OO0014 4S: BIT SCMOTO,P.PRST(RS) ; 


E14 
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a526 Sasuta poi 383 4 fee Be TOPROC O PROCESS TIMEOUT 
3584 20 Bae? abet oosso4 BIT a140TOS, RECODE ino Tiveour in tineour PROC? 
3636 000400 oosso4 gre sLEVER, RECODE :TEST IF LeveL : ERROR 
1 NE 41 :YES - SK RROR 57 
9258 04 ee ERROR - *ELSE MAKE FULL TIMEOUT REPORT 
3260 oY : neat 40S: ERROR Bo. ;TWO TIMEOUTS ERROR REPORT 
a5e5 rs 5 guz204 418: OREO” Baoent TOO BU TLBCAND MAKE PND REPORT 
9264 be 010000 o00014 SS: BIT #DRVSZD,P.PRST(RS) ;SEE TF DRIVE SIEZED BY OTHER PORT 
9265 1403 BEQ 65S ;BR’ IF DRIVE IS AVAILABLE 
aeb6 ie 204197 ned ERROR 107 :DRIVE SIEZED BY OTHER PORT 
000016 655: BIT #SPAR,P.CS1(RS) ; TEST D TO C PARITY ERROR 
goe9 5200 antes BEQ 6s’ ° 
3270 1 ERROR 6 
71 1 000 oosso4 BIS #RCLREQ, RECODE 
3676 3660 IMP 37$ 
3873 - i0 6S: BIT SORPAR, RM ;TEST DRIVE DETECTED PARITY ERROR 
9275 ERROR 7 
3678 32 000 oosso4 B15 #RCLREQ, RECODE 
ue 3660 J 37 
3678 6 : 000010 000036 73S: BIT BACLO, P.DS(RS) ;TEST AC LOW 
3587 O50137 043660 oe 49s 
9282 goed 27B5 BdaBeo 000036 28S: BIT BSPOLSS, P.DS(RS) ;TEST SPEED LOSS 
g56u 2574 1 ye ERROR 11 
9285 2s 1 043660 IMP 375 
3286 0 2765 004000 oO0001& 2Ys: BIT acTO,P.CS1(RS) ; TEST FOR CONTROLLER TIMEOUT 
deae Bieri? Thicts Fifon 5? 
3289 4 p3e704 oo0001 2ss: BIT #ILC,RM ;TEST ILLEGAL FUNCTION CODE 
gea3 boos a9 SRR Or 
1 3660 IMP 375 
3633 tA 002000 o00020 10S: BIT WPGE,P.CS2(RS) ; TEST PROGRAMMING ERROR 
9295 1 ERROR 13 
g5e9 BuSeuE oae704 OdaBB4 11S ay r afer RY TEST ILLEGAL DRIVE FUNCTION 
9298 O4265S2 001403 ; BEQ 12g ’ . 
BS 4 ERROR 14 
1 3660 IMP 37$ 
301 Oucbbe 032/04 Bae 0 128: BIT HDTYE, RM ;TEST DRIVE TYPE ERROR 
9303 oue670 1 018 ERROR 15 
9304 7 i3 60 IMP 375 
9305 ouee7e 032704 o00020 13$: BIT #FMTE,RY ;TEST FORMAT ERROR 
9306 O4e7 001403 BEG 14S 
9307 042704 104016 ERROR 16 
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10-JAN-78 


REPORT ERROR ROUTINE 


14S: 


1S$: 


16S: 


17$: 


18$: 


19$: 


20S: 


21s: 


228: 


SOs: 
278: 
26S: 


BIT 


DOoOMODOMODU.OMODUOMODOW 
sRUgS Again go-Taingo 
Ps) 


tarp pert ht pert per 
tnso ube 
WDO-+ wZo~ 
% S 


o3MoO4TDO4 
tie 


% 


ben! DOD ADOOAM 
o- 


37$ 

#WLE,RY 

1S$ 

17 

378 

SUNS, R4 

16S 
#ABORT , RECODE 
ALLTRM 
#SKI,R4 

iA 

#RCLREG, RECODE 
37$ 

#COE,RY 

18$ 


ee 
eisai 
SIDAE, RY 

19$ 

23 

are 
#DROT,P.OS(RS) 
20$ 


24 

#RCLREQ, RECODE 
#OTE,RY 

21$ 


es 
#ABORT , RECODE 
378 
A ctetattaatn 
ee 


378 

#OPI,R4 

SOF LEDR, RECODE 
DERCN 


378 
#LEV2ER, RECODE 
26$ 


7$ 
PC, BLDEXH 

PC’ RDHDO 
#LEV2ER, RECODE 
28S 


RKBAS, R2 
#IE, RKCS1(R2) 
RKDB(R2) , $REG1O 


12:16 PAGE 175 


; TEST WRITE LOCK ERROR 


; TEST DRIVE UNSAFE 


; TEST SEEK INCOMPLETE 


; TEST CYLINDER OVERFLOW 


; TEST ILLEGAL CYLINDER 


;TEST DRIVE OFF TRACK 


; TEST DRIVE TIMING ERROR 


; TEST DATA LATE 


; TEST IF OPI ERROR 


IF FIRST ERROR 


; TEST 

;NO_ - SKIP REPORT 

;TEST IF A SECOND LEVEL 2 ERROR 
;HAS ALREADY OCCURRED 


;GET OUT OF ERROR REPORT 

;GO BUILD EXPECTED HEADER 

GET HEADER OF SECTOR O 

F ERROR GETTING HOR 

;1F YES-GO MAKE ABREVIATED REPORT 
;STORE HEADER O INTO REGISTERS 
;RESET INTERRUPT ENABLE 

;FOR REPORTING 


SEQ 0453 
SES 0174 





EgROnRS eee * J MACY11 30A(10S52) 10-JAN-78 12:16 PAGE 176 SEQ O4S4 


“5a fa: ‘48 REPORT ERROR ROUTINE SEQ 0175 
9364 26 016237 60 001204 MOV RKDB(R2) , SREG11 
9365 O43554 bess? Boo0S4 001206 MOV RKDB(Re) , SREG12 
308 A 100000 000000 BIT BERR, »RKCSI1(R2) ; TEST IF ERROR DURING STORAGE 
3. 134 BNE 27 
9368 1 ERROR 30 ;MAKE OPI REPORT 
3395 4 043660 JMP 378 
33 28S: ae S4 
71 1 o42204 MP ER2ENT ;GO MAKE 2ND LEVEL REPORT 
3373 busere 051487 000400 29s: git SHVRC, RY ;TEST IF HVRC ERROR 
74 74 7 ooo0o4% oosso4 BIS #HVRCER, RECODE 
9375 043302 105737 003121 TSTB DERCNT 5 Vest IF FIRST ERROR 
378 4 BEQ 30$ ;YEs = e's 
a Bp sais m iG amas 
$358 14 4 oosso4 30S: BIT #LEV2ER, RECODE IF A BNB NLEVEL ERROR HAS ALREADY 
93 1403 BEQ 31$ ;OCCURRED. NO-SKIP EXIT 
ieee one 335 T eRoE REPORT 
3358 5 Bueoie 318: JSR Be BLDEXH #86 ButLD E EXPEC ED HEADER 
9383 3336 737 Saas JSR PC, ROHOO 
3. mH oosso4 IT perpen: if est selena Thee yT NG HOR 
1 NE 3 VIATED REPORT 


43768 900100 000000 Bic SiEARACSL(Re) — i¢LEAR INTERRUPT ENABLE 
Googs4 001s04 mov RK 


sets | STORE OFF HE 
Gill 
Peee 


aaaeeegas 
2299 
seat 
cee 
ges 
88 
Sa" 


ou 780050 Ranta IT #CERR S1(Re sTEST. nN ANY ERROR IN UNLOAD 
3098 134 BNE ecg : MAKE SHORT REPORT 
3333 rae me ERROR 3h, t MBKES FULL COEPORT 
ac O4suee GbcTs 2204 oe Scr + BOR EEPORT OND LEVEL ERROR 
3337 Basuss Q BA5500 23S: BIT aBSE, RY : TEST FOR BAD SECTOR ERROR 
3335 os 7 oosso4 BFS sBeeRR REC er ERROR FLAG 

MOV P.DCYLERS) ;GET CYL NO. 
gue O4aueE 42701 aaa pene De $4 (RS), RI ET OR ALC BTS EXCEPT TRACK 
gug8 Ru suEs ig badaoe Bas P.DTS(RS), Re fae ahh ERA SF 
Bigs fesse Soares taozi8 sg Alvgoamee™ SSSR "Ye Slud SXcHon SISTED 
9406 Dasuce 003535 abate oosso4 BIT #BADSEC , RECODE ee 
Side Bisehe Slr Ftfon io! AE rep ror 
3409 O43! o42937 ooo002 oosso4¥ BIC HBSERR, RECODE fees BSE ERROR FLAG 
18 pes Se 100000 33S: BIT K,R4 > TEST i DATA CHECK 
aut3 26 ? gg0020 oosso4 BIS ¥OCKERR, RECODE i SET DATA CHECK ERROR IN RECOVERY CODE 
Sig Fes BLS sarc cass «tone necooe AERsgeR RIS aS Ih 
Ta ale VE IE SN ae 
9419 O43556 012737 OO00001 oO01206 34S: MOV #1, SREG12 : 


CZR6M00 RKE11/06 SS VERIF 1 
10-JAN-78 11:48 


CZR6M0. 


9420 


ee 


Pill 
043564 


O44064 


105737 


0S2737 


004737 
012737 


003121 


000200 
000040 


ood200 
004000 


000200 
000010 


000200 


002630 
042164 

040716 
000200 


Bb8208 


000200 
004000 
000113 


042164 


MACY11 30A( 1052) 


000014 


oosso4 
000014 


ooSSO4 
000014 


oosso4 
000014 


oosso4 


003046 
003044 
OOSSO4 


000012 
oosso4 
oosso4 


000001 
003046 


003046 


35S: 


36S: 


378: 


435: 


44S: 


46S: 


10-JAN-78 12:16 PAGE 177 
REPORT ERROR ROUTINE 


Ham 
oon wWDoO- Do 
So .=] - 
a D 


OMmOD OMOD OMMOwW oma 
,=] 
wz 


SDM HDMe MDM 


WDBOHA WD 


DERCNT ;TEST IF FIRST ERROR 
Boe BERR, s said ete PEE BROFE Pano ERROR 
P-EPAT(RS); 

Ml eéport. BCK ERROR 
aice, P.CS2(RS) ;TEST WRITE CHECK ERROR 


SaCERR T RECODE iCLEAR QGORT & SET WAITE 


;CHECK ERROR IN RECODE 
DERCNT : TEST IF FIRST ERROR 
378 ;NO - SKIP 
PC, GTPKAD :GO_GET ADDRESS OF ERROR 
33” ;REPORT WCE 


ee ; TEST HARD ERROR 


36 
#ABORT , RECODE 
ae emlbaaae ; TEST STATUS CHANGE NOT CLEARED 


37 
#ABORT , RECODE 
ee eames ; IFST ATTENTION BUT NO FAULT OR DSC 


4 

SABORT , RECODE 

SUEXATT,P.PRST(RS) ; TEST UNEXPECTED ATTENTION 
ALLTRM 


4 
TAGORT , RECODE 


;ALL ERRORS MUST EXIT THROUGH THIS POINT 


ALLTRM: 


47$: 


MOV 
MOV 
MOV 


BNE 


eae Sea 


#PARMO,R :RESTORE PARAMETER BLOCK SELECT 


ECTION 
SERRHDL, INTERRUPT VECTORS FOR RETRY 


y (HAS NOT 


RGF alBscne (YELLE ORTUE RBooy s 


RECALIBRATE REQUIRED BIT IS SET 


BAGORT , RECODE tELSE ABORT WITH ABORT MESSAGE 
BRC EQ, RECODE IBRATE IS REQUIRED 
CARTY ito RET SET UP P BRAM 
aRECAL P. CMND BLOCK TO 00 I 
RE TANC A. ABNL 


VCAL 
2 RRC ;RESTORE ERROR RETURN 


SEG O4SS 
SEG 0176 


I14 


CZR6MDO RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 178 SEQ O4SE 
CZREMD.P11 10-JAN-78 11:48 REPORT ERROR ROUTINE SEQ 0177 
9476 044072 032737 OD0400 oDsso4 BIT #LEV2ER,RECODE ;IF AN ERROR OCCURRED IN THE 
9477 ous 00 4e4 BEQ BGNRTY :RECAL ATTEMP SET ABORT 
947 41 737 o00200 oosso4 BIS WABORT,PECODE ;PRINT THE RECAL ERROR MESSAGE, AND 
947’ 4110 104060 ERROR 60 :GO REPORT DETAILS 
94 4112 137 042204 IMP ER2ENT 
9481 4116 1 1 48S: ERROR 61 ;REPORT ABORT-RETRY FAILED 
9482 044120 105037 003130 CLRB DRVERS ‘DROP DRIVE & GO TO NEW DRIVE 
9483 044124 105037 003126 CLRB ERRCNT 
3483 044130 000137 017026 IMP NEWDRV 
9486 ; THE PROGRAM WILL HALT HERE IF THE ABORT FLAG HAS BEEN SET OR 
2182 :IF THE DRIVE READY BIT IS RESET. 
9489 044134 0000 HLTPRG: RESET ;DISABLE ALL DEVICES 
9490 044136 000000 HALT :HALT THE CPU 
9491 044140 105037 003126 CLRB ERRCNT *CLEAR ERROR COUNT 
9492 044144 QO000S RESET :RESET ALL DEVICES 
3433 O44146 000137 012606 IMP CMSTRT 
9495 
9496 ;THE FOLLOWING CODE WILL DETERMINE IF AND DATA TYPE ERROR 
9497 tHAS OCCURRED. IF YES, THE RETRY IS NOT DONE HERE BUI RETURNS TO 
3438 : THE INITIATING ROUT! . ANY OTHER ERR 
349 *RETRIED HERE. IF RETRY IS UNSUCCESSFUL AFTER 4 ATTEMPTS, THE ABORT 
3800 :FLAG IS SET AND PR TS. 
gee 4152 032737 000136 OOSSO4 BGNRTY: BIT SBSERR! HVRCER! OP IERR! OCKERR! MCERR, RECODE ;TEST IF ANY DATA ERROR 
9504 ules 737 100000 oosso4 9S: BIS #ANYDER, RECODE 
950s 4170 453 BR 2s 
9506 044172 3S: 
9507 gulze 737 003143 TSTB NORTRY ;SEE_IF “NO-RETRY” FLAG SET 
3208 0441 1371 BNE 9S °BR IF Y 
35 044200 7 001000 oosso4 BIT #BADSEC,RECODE ;TEST IF BAD SECTOR FLAG SET 
9510 206 001044 BNE § *IF YES-EXIT TO CALLER 
ge11 el 124737 003126 003127 CMPB ERRCNT,ERRLMT ;BEGIN RETRY IF ERROR COUNT HAS 
951 4216 1012 BNE :NOT BEEN EXCEEDED 
9513 O44220 005037 001174 CLR SREGS 
9514 O44224 113737 003126 001174 MOVB ERRCNT, SREGS ;GET ERROR RETRY COUNT 
9515 O44e32 1041 ERROR 1 ‘REPORT RETRY UNSUCCESSFUL 
9516 O442e34 052737 oO00200 oDsso4 BIS #ABORT,RECODE ;SET ABORT & QUIT 
9517 e42 000734 BR TPRG 
9518 O44e44 613702 0030 1S: MOV RKBAS, R2 -GET RK BASE ADDRESS 
9519 O44eS0 112765 000177 oD0001 MOVB #SUBCLR.P.CMND(RS) ;SET UP TO CLEAR SUBSYSTEM 
9520 256 arbectd 040316 JSR PC. DRVCAL ;GO 60 IT 
952 4262 012700 O0S246 MOV #COMSTR, RO *GO AND REESTABLISH THE COMMAND 
952 266 012025 MOV (RO)+, (RS)+ :AS_ IT WAS ENTERED INTO THE 
3223 guue7o 01 MOV (RO)+; (RS)+ :PARAMETER BLOCK 
72 O1 MOV (RO)+; (RS)+ 

9525 O44e 012025 MOV (RO)+) (RS)+ 
3526 4 01 MOV (RO)+) (RS)+ 

2 4 O120 MOV (RO)+) (RS)+ 

4 127; 002630 MOV #PARMO,RS 

9529 044306 012737 O00000 177776 MOV #PRO, J&PSW ;LOWER PRIORITY TO ALLOW INTERRUPT 
9530 044314 004737 O40316 JSR PC, DRVCAL :CALL DRIVE 
9531 O44320 104410 2s: RESREG :IF RETURN GETS HERE, NO ERROR 


J14 


CZRENDO RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 179 SEQ 0457 
CZR6MD.P11 10-JAN-78 11:48 REPORT ERROR ROUTINE SEQ 0178 
2532 044322 000207 RTS PC ;OCCURRED, RECOVERY WAS SUCCESSFUL 
9534 
953S 044324 152737 000377 003123 RETANL: BISB #377 , DONE ;SET DONE 
9536 044332 052737 O00400 O05504 BIS #LEV2ER,RECODE :SET LEVEL TWO ERROR 
9537 044340 000207 RTS PC 
3538 4342 152737 000377 003123 RETNML: BISB #377 , DONE ;SET DONE 
35 4350 000207 RTS PC 
geuy 
9S4e 3 a tal bt haan hi®™m eee 
9543 "SBTTL TIME OUT PROCESSOR ROUTINE 
4 scores Br SUPPORTS THE ERROR HANDLER BY PROCESSING TIME OUT STATUS 
S546 1h cialis 
9547 044352 tdpeoc 
954 4 O4407 SAVREG 
954 4 0137 MOV RKBAS, Re 
9550 360 012701 001174 MOV #SREGS,.R1 ;SET UP R1 FOR RK REGISTER STORAGE 
geek ouNi368 O1bee! MOV RKES1 (RE), (R 1)+ :STORE ALL VALID RK611 
95 4 16221 i0 MOV RKCS2(Re)*(R1)+ :REGISTERS 
9553 044374 Ol6e21 o00020 MOV RKDC(R2), (R1)+ 
9554 guog 16221 MOV RKDA(R2); (R1)+ 
9s5 44 1beel 000002 MOV RKWC (Re); (R1)+ 
95 O44410 Ol6e21 MOV RKBA(RE), (R1)+ 
9557 O44414 Ol6221 O000i16 MOV RKASOF (R2), (R1)+ 
58 ous Ol62e21 o0001e MOV RKDS(Re), (R1)+ 
955 44 O16281 00 MOV RKER(Re); (R1)+ 
60 4 ree) CLR RO ;THIS CODE WILL ATTEMPT TO 
g0b1 iR TRIEVE THE STATUS FROM THE 
9563 O44432 0127 2714 MOV #PARM1 RS ‘SET UP TO USE 1 
9564 gua36 76 0141 oo0001 MOVB #ROSTAT.P.CMND(RS) ;DO0 READ DRIVE STATUS COMMAND 
9565 444 bdS583 040316 ISR PC, DRVCAL” tail DRIVER 
3566 a¥ie0 03276 000100 000014 BIT achDTO, P. PRST(RSS (TEST FOR TIMEOUT 
gee8 uue8 D527 002000 oosso4 BIS 1 oTos RECODE :SET TWO TIMEOUTS FLAG 
9569 000040 1S: ADD #P.ACO, RS :BUMP RS TO POINT TO DRIVE STATUS 
70 ou? O1ese1 MOV (R5)+, (R1)+ :MOVE ALL THE DRIVE STATUS INTO THE 
71 474 O1le5e1 MOV (RS)+) (R1)+ : TEMP REGS FOR REPORTING. 
9572 O44476 O1eSe1 MOV (R5)+; (R1)+ 
9573 O44S 12521 MOV (R5)+; (R1)+ 
3574 iebe1 MOV (RS)+, (R1)+ 
75 4 12521 MOV (R5)+) (R1)+ 
9576 4 012521 MOV (RS)+) (R1)+ 
3277 044510 012521 MOV (R5)+; (R1)+ 
9579 O44512 012705 002630 MOV #PARMO, RS ;RESTORE PARM O 
9580 O44516 104410 RESREG : 
9581 O44520 000207 RTS PC 
9582 
en 
gces 4 SAAAKARAARARERAARASA RAL RASA HAHAHAHAHA SAHARA RAAARALARAEAAEAAEAARHKRRKATE 
9586 “SBT READ HEADER O ROUTINE 


9587 s SRRREARAER ALAA AERERELEKRELE LA LLL LEA LARALARAL ALAA LARELRAARAREEAELAES 
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CZR6M0.P11 10-J 


044S2e 
044See 
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04 
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MACY11 08 


000001 
177776 


000001 


000007 
000007 


000016 
001200 
001200 


001176 


RDHDO: 


4$: 


6S: 


(1052) 
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EAD HEADER O ROUTINE 
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12:16 PAGE 180 


P.DTS(RS),RI ;STORE TRACK AND SECTOR 

P.B10(RS) ‘RO *GET THE CYLINDER ADRS 

#160017,R0 :FROM THE DRIVE STATUS. CLEAR 

RO [OFF UNUSED girs AND POSITION 

RO FOR USE AS HE DESIRED 

RO *CYLI p RAN THE READ 

#PARM1 RS GERACE O USE P.B. 1 

Rib caenCRe), fone Ingcsect 108 READ HOR 
CLR.P.CMND(RS) ;SET S.S. CLEAR CMND 

peroaieac’ fetes Hevstue's 

SROHEAD ,P. CHIND(RS) |; SET READ HEADER COMMAND 

HOLDS, (Re) Oo TE RO WITH FMT BIT = 0 

agIT7, (RE) i CHECK FOR C. READY IN CS1 

HOLD4, (R2) ;ISSUE RO HOR wiTH FMT BIT = 1 

wBIT7, (Re) j CHECK FOR C. READY IN CS1 

#8.CFMT.P.CSIH(RS) ;CLEAR THE FORMAT BIT 

FORMAT,P.CSIH(RS) ;RESTORE TYPE AND FMT IN U 

#PARMO; RS ;RESTORE P.B. O ADDRESS 

?RESTORE RO-RS 
PC RETURN 


os MM MH ME EE EE REE ARAL ELAR EE RARE RRAA ARAL SLEEK 


"SBTTL GET PA 


CK ADDRESS 


ROUTINE 
os RRR KERERRRERRR KREGER REE RRARRRARRRERERKARARRARAKRA KERALA EKE 
étPKAD: MOV 


P.OCYL(RS),SREGS ; 


GET CYLINDER NUMBER 
CLEAR REGISTERS FOR 
*TRACK & SECTOR STORAGE 


REG 
P.OTS(RS) ,SREG7 ;STORE THE TRACK AND SECTOR 


P.DTS+1(RS), SREGS 
SREG? 


1$ 
$SREG7 


-ADJUST THE ADDRESS CONTAINED IN 
; THE RK REGISTERS FOR THE AUTOMATIC 
: INCREMENT 


#CFMT,P.CS1(RS) 


#19. ,SREG7 


#21. ,SREG7 
SREG6 


4 
SREG6 
S 


#2, SREGE 
SREGS 
PC 


SEG O4S8 
SES 0179 


L14 


CZR6MDO RKG11/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 181 SEQ O4 
eSRenb oP Tt 10-JAN-78 11:48 GET PACK ADDRESS ROUTINE sb 180 

9644 
geue 

ug avn hs Pe ae 
9649 ;*USES DESIRED CYLINDER, TRACK AND SECTOR REGISTERS TO DETERMINE 
3650 j KHICH R WAS EXPECTED. LOADS EXPECTED VALUES IN SREGS, 6, AND 
eres o4so12 104407 Jj SPOSEO SSR CaRSRERTRORENERNDRORRERISUNERONSEORNOTE OR ENSS TER INED 
9654 4 0165 900030 001174 * MOV P.OCYL(RS),SREGS ;CONSTRUCT EXPECTED HOR 
9655 Byepee pi ee 1 oo00026 MOV P.DTS(RS),R1 ;DESIRED CYLINDER 8 DESIRED TRACK 
3656 2701 174377 BIC #174377,R1 ; CLEAR ALL BUT TRACK BITS 
965 1 ASR R1 ; SEC OR. SHIFT THE TRACK 
9658 5034 01 ASR R1 :OVER TO CONFORM TO HEADER FORMAT 
A epeaaat gpg: pee ay OTe MEET THE HEADER FORMAT 
966 016537 001176 MOV P.DTS(RS),SREG ;BIT. ° 

0427 177740 001176 BIC #177740, SREGE i CLEAR ALL BUT SECTOR 

4 14 001176 Bis Ri SREGE ce OOCERT BSE BETS Ot OGETHER 
9665 045066 765 010000 0o00016 BIT #CFMT,P.CSICRS) ° 
3666 045074 rape BEQ 23s’ 
966 76 0527. 00 001176 BIS & : REGE 
3668 104 0137 7 Tae 0012 23S: mov REGS, R G sCOMPUTE THE HEADER VRC 
9670 O45116 043737 001176 001200 BIC SREG6, SREG7 
9671 045124 043701 001174 BIC $REGS‘R1 
3676 045130 050137 001200 BIS R1, SREG7 
967 45134 1049410 RESREG 
9674 045136 000207 RTS PC 


CZR6MD0 RK611-06 SS VERIF : MACY11 we tie t 10-JAN-78 12:16 PAGE 182 SEQ 0460 
CZR6MD.P1i1 10-JAN-78 11:48 RK611/RKO6-RKO7 UNIBUS DRIVER FOR SEQUENTIAL OPERATIONS (REV. 0.10) SEQ 0181 


pth | .SBTTL RK611/RKOE-RKO7 UNIBUS DRIVER FOR SEQUENTIAL OPERATIONS (REV. G.10) 
9678 GHT ( 975 76,1977 
3569 E ALB E {P HL, 7 
AUTHOR: ’ROY- T 
9682 
oe 2 . SBTTL *#WATCH-DOG TIMER 


+ 9G SG 3G 2G 6 4 HE HE SE HE SE HE aE HG HE HH HH EE RR RARER RE RE ERE RE RE RRER 


| 
| 
th 
9687 is THE WATCH-DOG TINER DOES A PSEUDO-TINING OF RKOE-RKO7 UNIBUS 
ages it Rua TThe & Soe ut Sea twee . 
ee Hea oe ae 
3692 5 Litt Bee RMILL Scan He Oar SI Ruse ee 
3634 :% FOR H ) K N igs 
ae i ole ae ae <e 
3638 iS THE ORIVER WILL USE THE LOCATION W.MIN AS THE NUMBER 
te MILLISECONDS F OAD OR START SPINDLE COMMAND. 
3701 is THE "ORIVER TU fs THE “LORE ION iW.SEC AS THE TIME 
7 : iS FOR QUEUED OPERATIONS THE WATCH-D0G TIMER WILL 
i WATCH UP TO 8 OPERATIONS SIMULATEOUSLY. FOR SEQUENTIAL 
9 : OPERATIONS ONLY ONE OPERATION WILL BE WATCHED. 
7 ’ 
8 on nam ‘hoi ele NO DRIVE ORDER EXCEEDED ITS TIME LIMIT 
97 : 
9714 it APPRO PARAME OCK WILL BE ager 
a7ie : | hata emmminiecartesiclarbact tsi ions 
9718 O4S14O O10546 W.WTCH: MOV —s RS, -( SP) RE ON THE STACK 
33 : 14e 1044 Vv RY, -( ) ‘S ae: ie 3 
as ie Re arene 
ase Bei Ge Azar BY ih AA ens stack 
9725 O4S162 013737 003060 003056 BOY MCRILI,W.MTIM {REINITIAC TSE MILLISECOND TIMER 
a3 piaize 737 003100 ier W.TINe oe. IVE IS BEING TIMED 
; ibe 73? 003042 177776 ROY «RIKI, PS RKO6-RKO7_ INTERRUPTS 
3°50 Buesig Bdes99 Bosris bee | Bay’ bons, Base ROMANS BIER a 
9731 O48214 O01016 BNE 20 ERETURN IF NO TIME 
} 
| 
| 
! 


SSRN Fie! 


RIF 1 
8 11:48 


003100 
003112 


177776 
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MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 183 
#WATCH-DOG TIMER 


CLRB 
MOV 


W. TIME ;RESET TIMING INDICATOR 
PBLKT,RS j LOAD 1s. OF PARAMETER BLOCK 
SCMDTO,P.PRST(RSS ;SET COMMAND TIME GUT 

RS,0.WAIT g CHECK F DRIVER RIVER I oHRITING FOR 

Ss ; NOT cbse tay FOR 
0.WAIT iar Be ib cnite OMMAND COMPLETION 
PCR. ABNL ERROR ROUT INE 

(SP)+,PS 

(SP)+,Re REST one 

(SP)+°R tREST RS 

(SP)+'RY ?RESTORE RY 

(SP)+)RS :RESTORE RS 

PC RETURN 


CZREMDU_RK611/06 SS a" - “ue 


CZ2R6MD.P11 10-JAN-78 1 


MACY11 30A(1052) 10-JAN-78 12:16 PAGE 184 
#RKO& INTERRUPT SERVICE ROUTINE 


SES O46e 
SE@ 0183 


3748 .SBTTL #RKOG INTERRUPT SERVICE ROUTINE 
aay 5 e-em aaa acacia aa lai SO 
375¢ # THIS ROUTINE WILL SERVICE ALL RKOG INTERRUPTS. 
9754 1 UPON RECEIVING AN INTERRUPT, THIS ROUTINE WILL 
3755 i# PERFORM ONE THE FOLLOWING SERVICES: 
9757 : # 1.) SERVICE PORT WAS SEIZED BY OTHER PORT 
9758 :% 2.) SERVIC Paar IS WAIT FOR COMMAND COMPLETION 
9759 2 3.) BE GUELE C ITIONING COMPLETION 
9760 : 4°) Ria DRIVE WAS RELEASED 
9761 1 FOR RKO6 DRIVER. 
8762 1 a Ss.) BUGLE IS REQUIRED, THE COMMAND WILL BE ISSUED 
3763 i t6R HE SERVICE RKO6 DRIVER. 
9765 1a THREE LINKS ARE PROVIDED TO THE DRIVING PROGRAM 
are) ion 
8768 1 1.) A.NORM ADDRESS OF NORMAL RETURN (SUCESSFUL COMPLETION OF COMMAND) 
9769 1 5°) @ABNL ADDRESS OF ABNORMAL RETURN (UNSUCESSFUL COMPLETION OF COMMAND) 
3770 i 3.) A.CONT ADDRESS OF CONTROL ERROR RETURN 
8772 1 i FOR NORMAL AND ABNORMAL RETURNS, THE ADDRESS OF THE APPROPRIATE 
3773 ;# PARAMETER BLOCK WILL BE IN RS. 
9775 : FOR THE CONTROLLER ERROR RETURN, THE LOCATION E.CONT CONTAINS 
9559 + THE REASON FOR THE CONTROLLER ERROR. 
9778 : ROUTINES USED: 
3779 1% C.OPT (QUEUED ONLY) 
9780 1% @.PUSH (QUEU p ONLY) 
9781 1% Q@:.RMOV (QUEUED ONLY) 
9782 1 a R.CONT ( NTIAL ONLY) 
9783 1 R.NORM ( CUENTIAC ONLY) 
9784 1a R.ABNL (SEQUENTIAL ONLY) 
9785 ta 1.cSTs 
9786 $x 1.STA 
9787 $x 1. 1SSU 
3788 i I.CCLR 
Le 3 SG AE 2 0 3636 6 0 a 2 A 9 A A A a 
9792 S2 010546 I. INTR: MOV RS,-(SP) ;STORE RS ON THE STACK 
9793 045272 010446 MOV RY, -(SP) :STORE RY ON THE STACK 
9794 5274 010346 MOV R3,-(SP) :STORE R3 ON THE STACK 
9795 045276 010246 MOV Re, - (SP) :STORE Re ON THE STACK 
9796 O45300 O10146 MOV R1>-(5P) :STORE R1 ON THE STACK 
9797 045302 010046 MOV RO’ -(S?) : STORE RO_ON ON THE 1 
9798 5304 0137 003036 MOV RKBAS, Re LOAD Re TO ADDRESS AeKOe REGISTER 
9799 045310 016237 000010 o03002 MOV RKcoetRe) T.cS2 :STORE Cse 
5316 032737 001000 003002 BIT 5,1.cSe :CHECK IF MULTIPLE DRIVE SELECT 
9801 045324 1407 BEQ is. :NO, CONTI ROCESSI 
9802 045326 052737 100000 003052 BIS #—.MDS,E.CONT Et MULTIPLE DRIVE SELECT 
9803 045334 004737 OSO0S46 ISR PC; R. CONT REPORT ERROR 
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CZR6MD.P11 10-JAN-78 11:48 *RKO& INTERRUPT SERVICE ROUTINE SEQ 0184 
3804 045340 000137 047520 IMP I. RTRN ; RETURN 
3806 4 105737 003074 1$: TSTB I. ISRL ;CHECK IF INTERRUPT OR RELEASE 
980 001410 BEQ 64 ;NO CHECK IF DR VE AVAILABLE 
3808 1 BMI S$ > CHECK TERE RELE ASE COMMAND 
4 1 003074 CLRB 1. ISRL ives CLEAR FLAG 
| 3810 045360 000473 BR 1.160 ONT INUE PROCESSING INTERRUPT 
9381 7 74 S$: CLRB . ISRL open F 
| 3613 BueSee i Baeeoe IMP t-J TN G0 PRockss DRIVE ATTENTIONS 
9815 04S372 032737 O10400 o03002 6&5: BIT #NED!UFE,T.CS2 ;CHECK_F TENT DRIVE OR 
| ae Monn 
381 Qus¥00 001413 BEQ NO FOR DUAL ACCESS INTERRUPT 
| Et Bueube 2 003005 BIC TOSB ARM RY KEE DRIVE 8 BITS —— 
| OYEN1e Giees? 900000 003000 MOV RKGS Ith), T.CS1 ss Tone, Beret C81 FOR STATUS REPORT 
| 3h Baus Rarer BR ime MERA ebbaT ome” om! ro a 
38e4 ousY 6237 0012 003020 75: MOV RKDS(R2),T.DS STORE STATUS REGISTER FOR COMPARISON 
454 2737 000i 003020 BIT #ORA,T.05 at iad DRIVE SEIZED BY OTHER 
| a, O4S444 001041 BNE 1.100 'NO, CONTINUE PROCESSING INTERRUPT 
:CHECK IF ANY DATA TRANSFER ERROR EXISTS 
| 3830 O4S446 032737 164000 003002 BIT #OLT!WCE!UPE! NEM, T.CS2 
| 30 4Sy 7 BNE ; RR 
3g Ruedee 892995 000014 003016 MOV ARER(Re), T.ER 2H AT RRBE REGISTER 
geae ; CHECK FOR DATA TRANSFER ERROR TYPE ERROR 
38 O4S464 032737 125700 003016 BIT #0CK! OPI! WLE! COE! HVRC!BSE!ECH, T.ER 
3838 O04S472 001407 BEQ 118 ;NO, WAIT FOR RELEASE OF RKO& ORIVE 
9840 045474 052737 0010 oo30S2 10S: BIS #€.UDAT,E.CONT XPECTED DATA TYPE ERROR 
9841 O45 oon? osos4e JSR PC OR OnT iREEORTE ERROR 
a8e 04s 1 7520 IMP I. RTRN ORE REGISTERS 
9844 oO45512 7 003100 118: CLRB W. TIME ;RESET Ri: NG THI FS DRIVE 
a8u6 003114 CLR Wd. ORV i CLER TIM NG T FOR TH HIS DRIVE 
6 1 003112 MOV PBLKT,RS 
Sa4a O4SS26 052765 010000 op0014 BIS #ORVSZD,P. atts 8 : Bhi SEIZED IN T 
984 procaan canal SSaaelht 
deca o4s 005037 003054 CLR O.WAIT fOLe WAIT Opa NOC MPLETION 
9851 oO45540 004737 oOS0S22 ISR PC,R.ABNL : INDICATE 
383¢ o4s5 060137 047520 IMP I. RTRN :GO RESTORE REGIS ER 
9854 O4SSSO 013705 003054 1.100: MoV O.WAIT,RS LOAD PARAMETER BLOCK ADDRESS INTO RS 
9ess o4sss4 10 BNE 25 1 sc WAITING PROCESSING 
gge9 O4SSSE ~000137 oO46S502 IMP 1. ATTN NO, Baeac ERG oRTNS, 
9859 O45562 013704 003002 2s: MOV T.CS2,R4 ;STORE RKCS2 FOR DRIVE NUMBER 
| 
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BIC #tC<DRVMSK>,R4 ;MASK OUT UNNECESSARY BITS 
CMPB P.DRVN(RS),R4Y  ;CHECK IF DRIVE NUMBER IS EXPECTED 
BEQ 3s ?YES, CONTINUE 
000001 3$ CnPE #RDALHD, P. cnnocrs) CHECK TE ORES AL 
j SNE 188 E FREAD A bate TRONSFER 


JMP t° HDAL 
10S: CLR 0.WAIT 


cLR Wd. ote fe Ti 

RB 4 PRM me HIS DRIVE 

003000 MOV Ricdi tne) aT: CS1 ANOS 

003000 BIT Bakr © RROR 
SARE 

003014 MOV KASOF (R2),T sot He 

003015 BITe Ri TMSK, T. ASOF +1 ie tet eet ay VE ATT NT TON. SET 


JSR POOR NORM NG RAL RETURN 
IMP Tent an HIND BtcaTe REGISTER 


000014 15S: BIS SUEXATT,P.PRST(RS) ;SET UNEXPECTED ATTENTION 
I.ERRA: JSR PC,1I.CSTS ;STORE CONTROLLER STATUS 


BR 1. ERR :STORE PATTERN AND POSITION INFORMATION 


000016 I.ERRC: Mov T.CS1,P.CS1(RS) ; GET 
000062 I.ERR: MOV Peekstens e. pat 


000060 MOV xe P ‘ bay T POSITION 
Foam Poetceath "eae Rene 
ooo0020 BIT canes. P. esecnd nite F IT NON-EXISTENT DRIVE OR 
JSR Hf 1. STAT GA R DRIVE CERROR 
003000 hovers . : R,T.CS1 oe RETURN 
135 RBs Sad: ete BRTVE ‘CLEAR 
003015 BiTB INTMSK, T.ASOF+1 ; dato Re TUE ENT ON RESET 
BEQ & NO ICATE DRIVE ERROR 
003052 BIS #E.CLAT,E.CONT Set ENTION DID NOT RESET 
ISR PC,R. CONT :REPORT CONTROLLER ERROR 
IMP 1. RTRN :GO RESTORE REGISTERS 
003024 2S: BIT #S.DSC,T.MR2 CK IF oh Fab STATUS CHANGE CLEARED 
BEQ 3 Ce 
000014 BIS #ORVDSC,P.PRST(RS) ar $ NO 
003026 3S: BIT #S.PAR, T.MR3 ; CHECK K IF Sao . PARITY ERROR 
BEG INDICAT NORMAL TERMINATION 
003052 BIS #E . DPAR,E.CONT Oey RIVE PARITY ERROR 
ISR PC_R.CONT : INDICATE CONTROLLER ERROR 
IMP 1. RTRN RETURN 
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pd REGISTER 1 


L Melos #2 CONTROLLER STATUS 
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#RKO& INTERRUPT SERVICE ROUTINE 


SEQ O4ES 
SEQ 0186 


000014 SS: BIT #ORVHRD,P.PRST(RS) ;CHECK IF HARD DRIVE ERROR 
BNE 10$ >YES, GO REPORT ERR 
003024 2 Tr HS PIP, T.MR2 >CHECK IF VE ES CYCLING DOWN 
000014 BIS #E.UNLD,P.PRST(RS) :SET ORIVE UNLOADING 
003100 MOVB INTMSK,W.TIME ;SET UP & SECONDS FOR DRIVE TO CYCLE UP 
003114 MOV WW. 8SEC;W. 
IMP 1.RTRN ;GO RESTORE REGISTERS 
10S: JSR PC,R.ABNL ;GO REPORT ERROR 
IMP 1. RTRN :GO RESTORE REGISTERS 
.SBTTL READ ALL HEADERS INTERRUPT SEQUENCE 
003000 I.HDAL: MOV RKCS1(R2),T.CS1 j STORE CS1 TO CHECK CONTROLLER 
003000 BIT #CERR,T.CS1 ;CHECK TF Cc NTROLLER ERROR 
BEQ 5§ :NO, CHECK FOR ATTENTION 
CLR O.WAIT ;CLEAR WAITING FOR COMMAND COMPLETE 
CLRB W. TIME ?RESET TIMING ON DRIVE 
CLR Wd. ORV :CLEAR TIME OUT COUNT 
000016 MOV T.CS1,P.CS1(RS) 3ST E Si 
ISR pC, 1.¢sTl :ST ONTROLLER REGISTERS 
JSR RO; 1.CCLR ‘CLEAR CONTROLLER 
1. RTRN SERROR RETURN 
ISR PC, R.ABNL i INDICAT RROR RETURN 
IMP I. RTRN *RESTORE REGISTERS 
003014 SS: MOV RKASOF (R2),T.ASOF ;ST ATTENTION SUMMARY 
003015 BITB INTMSK,T.ASOF+1 ;CHECK IF OR ATTENTION IS SET 
BEQ 7g ;NO agite ck I ALL H R 
CLR 0. WAIT *CLEAR WAITING COMMAND COMPLETION 
CLRB Wd. TIME :RESET TIMING RIVE 
CLR W. ORV ?CLEAR_T ou COUNT 
IMP 1.ERRA :GO REPORT E 
7S: MOV HOR. AD, RI ;GET MAIN MEMORY ss 
MOV RKDB(R2),(R1)+ GET FIRST WORD OF R 
MOV RKOB(RE);(R1)+ 3GET SEC OF HEADER 
MOV RKDB(R2)’(R1)+ GET THIRD WORD OF HE 
MOV R1 AD i STORE S FOR NEXT HEADER 
003002 MOV RKCS2(R2),T.CS2 ;ST C CHECK FOR DATA LATE 
003002 BIT #OLT,T.cS2 ; CHECK DATA LATE 
BNE 35$ ;YES, REPORT ERROR 
DEC HDR. CT *DECREMENT NUMBER OF HEADER YET TO READ 
BNE 25s IF NON- GO TSSUE NEXT READ HEADER 
CLR 0. WAIT ?CL R WAI FOR COMMAND COMPLETION 
CLR W. ORV ‘CLEAR TIME OUT COUNT FOR THIS VE 
CLRB W. TIME >CL WAT TIME TH 
oo00026 MOV #3, RKMRI(R2 :LOAD MAINTENANCE REGISTER FOR SECTOR COUNT 
3000 MOVB WOR.SEL.1T.CS1 ;LOAD SELECT C D 
R RO,i.1S5 :GET SECTOR COUNT 
1. RTRN :ERROR RETURN 
oooose v T.MR3,P.811(RS) :LOAD SECTOR COUNT 
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CZREMDO RK61 1/08 SS VERIF 1 MACYL1L 3081052) 10-JAN-78 12:16 PAGE 188 SEQ O466 
CZREMD.P 10-JAN-78 11:48 *#READ ALL HEADERS INTERRUPT SEQUENCE SEQ 0187 
9972 6404 004737 o50534 ISR NORM ; INDICATE NORMAL TERMINATION 
3373 410 000137 047520 IMP Feat an :RESTORE REGISTERS 
9975 Oue4 4 016562 oo0020 25s: MOV P.CYLN(RS),RKDCYL(R2) ;LOAD CYLINDER ADDRESS REGISTER 
39 buce 016562 000004 oO00006 MOV P.SECT(RS);RKDA(Re) ;LOAD 
33 O46430 116565 000007 000017 MOVB P.CSIH(RS) p.CS141(R5) ;STORE BITS 8- ie ASF cS1 
3378 436 042765 165777 O00016 BIC #tC<COT!CFAT>, -CS1(RS) F CLEAR ALL BITS EXCEPT FORMAT AND 
046444 112765 060125 o00016 MOVB #RDHEAD,P.CS1(RS3 ; STORE COMMAND ISSUED 
998 6452 016562 000016 Oo00000 MOV P.CS1(RS), RKCS1 (Re) SSUE READ HEADER 
982 000137 047520 IMP 1. RTRN Rats TARE REGISTERS 
gags OuBYeY 737 oOO0400 o030S2 35s: BIS #&.DLT,E.CONT i SET T DATA LLATE WHILE UNLOADING HEADER 
9985 472 004737 OSOS46 ISR PC. R.CONT 
3286 046476 137 047520 IMP 1. RTRN i REST ORE REGISTERS 
3388 .SBTTL DRIVE ATTENTION SCANNER 
9990 O%6SC2 016237 OO00000 003000 I.ATTN: MOV RKCS1(R2),7.CS1 ;STORE COMMAND AND STATUS 
9991 REGISTER 1 FOR. COMPARISON 
9992 046510 032737 100000 003000 BIT #CERR,T.CS1 CHECK IF CONTROLLER ERROR OCCURRED 
3333 046516 001441 BEQ S$ :NO, CHECK IF ATTENTION 
;CHECK IF ANY DATA TRANSFER TYPE ERROR EXISTS 
333 046520 032737 164000 003002 BIT #DLT! WCE! UPE!NEM, T.CS2 
9998 046526 001007 BNE 1$ ; INDICATE ERROR 
12228 046530 016237 000014 003016 MOV RKER(R2),T.ER ;STORE ERROR REGISTER 
10001 ; CHECK FOR DATA TRANSFER ERROR TYPE 
1900e O46536 032737 125700 003016 BIT #OCK! OPI! WLE! COE! HVRC!BSE!ECH,T.ER 
18004 O46S44 001407 BEQ 2s ;NO DATA TRANSFER ERROR 
{BOOE O46S46 052737 000010 o030S2 1S: BIS #E.UDAT,E.CONT ;SET UNEXPECTED DATA TYPE ERROR 
10007 046554 004737 OSOS46 ISR PC_R.CONT *REPORT ERROR 
10008 046560 000137 047520 IMP 1. RTRN ?RESTORE REGISTERS 
terete 046564 0137 003002 2S: MOV T.cS2,R4 cs2. FOR REGISTER NUMBER 
10011 046570 b4358q 177770 BIC ##C<DRVMSK>, RY 5 oe OF F JUNK 
1001¢ 046574 198037 03100 CLRB W. TIME > CLEAR WATCH DOG TIMER 
10013 O46600 50 03114 CLR WW. DRV ;RESET TIMER VALUE 
19014 O46604 013705 003112 MOV PBLKT,RS :STORE PARAMETER BLOCK ADDRESS IN RS 
10016 ; CLEAR DRIVE POSITIONING AND DRIVE POSITIONED FOR DATA TRANSFER 
10017 : IN PROGRAM DEVICE STATUS REGIST ER 
19018 046610 042765 OCO0006 000014 BIC #ORVPOS! DRVPDT,P.PRST(RS) 
19026 046616 000137 045712 IMP I. ERRC ;GO REPORT ERROR 
10022 O46622 032737 O40000 O03000 SS: BIT #DI,T.CS1 ;CHECK_ IF ANY ORIVE ATTENTION 
19923 66 10 BNE 6$ ?YES, PROCESS INTERRUPT 
10028 01 047520 IMP 1. RTRN ?RESTORE REGISTERS 
10026 O46636 016237 O00016 003014 &$: MOV RKASOF (R2),T. asor ;STORE ATTENTION SUMMARY 
10027 O46644 105737 003015 TSTB T.ASOF +1 CHECK IF ANY ATTENTIONS SET 
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CZR6MD.P11 10-JAN-78 11:48 *DRIVE ATTENTION SCANNER SEQ 0198 
10028 O46650 001007 BNE 7$ ;YES GO PROCESS INTERRUPT 
10029 O466S2 052737 oO00002 103052 BIS #E.NOAT,E.CONT SET NO ATTENTION IN ATTENTION SUMMARY 
10030 6660 004737 osos46 ISR PC_R.CONT :GO REPORT ERROR 
19031 BueeeY 0001 047520 IMP I. RTRN :GO RESTORE REGISTERS 
10033 046670 133737 003101 003015 7S: BITS INTMSK, T. ASOF+1 $ CHECK olf pDESIRED | INTERRUPT 
10034 O466 001007 BNE 8 YES, GO ares A 
10035 O46 052737 g0000e 003052 BIS #E.. UATT F-CONT SET _UNSO cicat D ATTENTION 
10036 7 004737 46 ISR PC_R.CON 
19037 046712 000137 047520 IMP I. RTRN 88 RESTORE ORE GTSTERS 
19039 046716 013705 003112 QS: mov, peDeAR ; STORE PARAMETER. BLOCK TABLE 
1pego Bubsse A8see Beao00 000014 BIT OB bRercré) sCHECK IF DRIVE UNLOADING 
10042 046734 001402 BEQ sl" ;NO, CONTINUE 
10043 046736 000137 047420 IMP I. UNLD :SERVICE DRIVE IN POSITION AFTER ERROR 
{Boye 046742 O42765 O00002 o00014 115: BIC WORVPOS,P.PRST(RS) _;RESET DRIVE POSITIONING 
10046 6750 00S 000026 CLR RKMR1(R2) CLEAR MAINTENANCE REGISTER 1 
16047 754 112737 000001 003000 MOVB #OR.SEL,T.CS1 ‘LOAD COMMAND 
1 262 004037 047620 TSR 0,1. 1S$u j SELECT DR DRIVE WITH ATTENTION HIGH 
{Bose BuesSB Bi S3ee 003026 oo004e MOV T. MR3,P.B00(RS) rERRRE & Mt BYTE 00 MESS B 
10051 046776 032765 O00200 Ooo004e BIT S.FLt,P.B00(RS) igre” IF DRIVE FAULT 
10052 047004 001401 BEQ 135 NO HECK week DRIVE STATUS CHANGE 
10053 047006 000461 BR 1. AERR i PROCESS 
1B8e¢ 047010 013765 003024 oo0040 12s: MOV T. .MRe P.ADO(RS) ;STORE MAINTENANCE REGISTER 2 
100 047016 032768 040000 000040 BIT pst, P.AGO(RS)’ CHECK FO FOR B_ORIVE | stat US CHANGE 
1005 7024 1004 BNE 136 ES STATUS CHANGE 
10058 047 052765 oo4000 o00014 BIS #NODSC,P. PRST(RSS ES PROC f° “pRIVE STATUS CHANGE 
10058 047 000446 BR 1. AERR’ : PROCE 
10061 047036 112737 oO0000S 003000 13%: MOVB aOR CLR,T.CS1  ;LOAD_ COMMAND 
1 o4704N 004037 047620 ISR RO, 1. 1SSu > CLEAR DRIVE STATUS CHANGE 
1006 7050 047520 1.RTRN RE UN 
10064 047052 013765 003014 900032 MOV +.aner.p P.ASOF(RS) : STORE A TENTION SUMMARY 
10065 047060 3765 003101 000033 BITB INTMSK,;P P.ASOF +1 (R53 _; ; CHECK IF ATTENTION RESET 
10066 047066 1407 BEQ i CONTINUE INTERRUPT REROCESSING 
10067 047070 0S2737 o00020 003052 BIS #E.CLAT,E.CONT iSET att NITION DID _N OT RESET 
100639 047076 004737 osOoSs46 ISR PC,R.CONT ?FLAG ER 
19970 047102 000137 047520 IMP 1. RTRN :RESTORE REGISTERS 
10072 047106 013765 003024 oD0040 iss: MOV T.MR2,P.AODO(RS) ;S1ORE MAINTENANCE REGISTER 2 
10973 047114 032765 o40000 oo0040 BIT #S.0S5¢,P. AOO(RS)” me IF DRIVE STATUS CHANGE 
10075 ou712e 901404 BEQ 16S YES CONTINUE INTERRUPT PROCESSING 
10076 047124 2765 oo0040 o00014 BIS #DRVOSC,P. sanenk’ >SET DRIVE STATUS CHANGE DID NOT CLEAR 
10977 047132 000407 BR 1.AERR ;G0" PRocess VERROR 
10079 047134 105037 003100 16S: CLRB W. TIME ;RESET TIMING ON THIS DRIVE 
10080 047140 005037 003114 CLR W. ORV :CLEAR DRIVE TIM ING COUNT 
10081 047144 004737 OS0S34 ISR PC. R.NORM s REPORT SUCCESSFUL COMMAND COMPLETETION 
1008¢ 047150 OG0SE3 BR 1. RTRN RESTORE REGISTERS 
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10-JAN-78 12:16 PAGE 190 
*#ATTENTION ERROR HANDLER 


#ATTENTION ERROR HANDLER 


BIC 


#ORVPODT ,F. neon W beens PORT TIONING IN PROGRESS BECAUSE 


R TIMING FOR THIS DRIVE 
Hb Vt P. esicnsi" pits COMMANDS ISSUED 
CURRENT CONTROLLER STATUS 


#36,T.CS1 
T-C61.8. “EabtR } NE 6900 TROLLES REGISTERS 


T-WCR.P.WCR(RS) 

T-BA,E. (RS) 

T. 0A) P.OTS(RS) 

T.DC;P.DCYL( 75) 

T.ASOF ,P. ASW (RS) 

TIER, PZER(RS) 

T:0S;P.0S(R5) 

RO, I: STAT GATHER DRIVE STATUS 
RROR RETURN 


Ht 

WOR.CLR,T.CS1 iL COMMAND 

RO,1.1SSu fi TY 

JNTHSK,T.ASOF+1 $¢ 6 ATTENTION N RESET 

#E.CLAT,E.CONT Mi] feat BIDY NOT RESET 

PCR. CONT RROR 

1. RTRN REGS ORE ORE GTSTERS 

sORVHRD, P.PRST CRS) j CHECK IF BHARD DRIVE ERROR 

#S.PIP,T.MR2 ; CHECK K IF ORIVE I IS UNLOADING 

#£.UNLD,P. pasTiné): BOING | DUE TO ERROR 
seit] MING ON THIS O 


INTMSK, h. TIME 
W.8SEC; W. ORV SECONDS. FOR CRAVE UP TIME 


RN’ RESTORE REGISTE 
PC,R.ABNL ;REPORT ERROR 
I. RTRN :RESTORE REGISTERS 


CAUSING DRIVE TO UNLOAD 
P.PRST(RS) :;CLEAR DRIVE UNLOADING BECAUSE OF ERROR 

i tees. ata itis aNe°6 Ye° EAR 

INTMSK (RY), %, 2 Asotin 3H CHECK sia ATTENTION CLEARED 

#E. CLAT,£.CONT i EP ATTENTION DID NOT RESET 


PC. R.CONT :REPORT ERRO 

TR ERN ;RESTORE REGISTERS 

#S.DSC,T.MR2 ;CHECK IF_ DRIVE STAUS CHANGE RESET 
SORVDSC, P. PRST(RS) Sae$ DRIVE STAUS CHANGE DID NOT CLEAR 
W. TIME RESET T TIMING ON THIS DRIVE 


SEG 0468 
SE@ 0189 


CZREMO0 RK611/06 SS veer : MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 191 SEQ 0469 
CZREMD.P11 10-JAN-78 11:48 *#ERROR CAUSING DRIVE TO UNLOAD SEQ 0190 

10140 047510 005037 003114 CLR W. ORV ;CLEAR TIME COUNT 

its 047514 004737 050522 JSR PC,R.ABNL ;REPORT ERROR 

10143 047520 012600 I.RTRN: MOV (SP)+,RO0 ;RESTORE RO 

10144 O47See 012601 MOV (SP)+,R1 ;RESTORE R1 

1014S O47Se4 Ole60e MOV (SP)+,Re ;RESTORE Re 

10146 pie eEe 012603 MOV (SP>+,R3 ; RESTORE R3 

10147 O475 0ie604 MOV (SP)+,R4 ;RESTORE RY 

10148 04753e 012605 MOV (SP)+,RS ; RESTORE RS 

13123 047534 000002 RTI ; RETURN 
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CZR6MD0 RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 192 SEG 0470 
CZR6MD.P11 10-JAN-78 11:48 *CONTROLLER CLEAR ROUTINE SEG 0191 

10151 .SBTTL #*CONTROLLER CLEAR ROUTINE ; 

Hatt H "ap aidalpnis amettasciaaainiaint ia REKAKRAELALARAAAAAAAAAARALRAHAAAAARARAARAAAEESR 

1015s :% THIS ROUTINE WILL BE USED BY THE DRIVER TO CLEAR THE CONTROLLER 

10156 1% AND CHECK IF THE CONTROLLER ERRORS ARE RESET. IF THE ERROR IS NOT 

10157 1 CLEARED, THE ROUTINE AS SPECIFIEC IN A.CONT WILL BE CALLED WITH 

10158 1% E.CCLR SET IN E.CONT. 

10159 ;* 

10160 1% REGISTER USE 

10161 :$ ae oon 

10162 ;* 

10163 i Re ADDRESS OF RKO& REGISTERS 

10164 ;# RS ADDRESS OF PARAMETER BLOCK 

10166 :#CALL JSR RO,I.CCL 

10167 1 <ADDRESS OF ERROR RETURN> 

15188 haben 

into : 4 RKKERELEREARALEKE RES RSLARE SARA RARER AEKARAAALHRAAKAAAARAAAAAEAAEAE 

10172 047536 012762 100000 OO0000 I.CCLR: MOV #CCLR,RKCS1(R2) ;CLEAR CONTROLLER 

10173 ou7eN4 016237 O00000 003000 MOV RKCS1(R2),7.CS1 ;STORE COMMAND AND STATUS REGISTER 1 

10174 7552 032737 100000 003000 BIT #CERR,T.CS1 jCHECK J Egon ROLLER CLEAR DID 

10176 047560 001407 BEQ S$ :YES, RETURN TO DRIVER PROCESSING 

10177 04756e 052737 o00001 003052 BIS #E.CCLR,E.CONT :SET CLEAR CONTROLLER DID NOT CLEAR ERROR 

10178 047570 004737 OSOS46 JSR PCR. CONT ‘REPORT CONTROLLER ERROR 

10179 047574 011000 MOV (RO), RO ?SET UP ERROR RETURN 

10180 047576 000200 RTS RO : RETURN 

10182 047600 012762 000100 oo0000 SS: MOV #IE,RKCS1(R2)  ;SET INTERRUPT ENABLE 

10183 O47606 112737 177777 003074 MOVB #-1'’I.ISAL :SET INTERRUPT ENABLE ISSUED 

10184 047614 005720 TST (ROS+ :ADJUST FOR NORMAL RETURN 

1018S 047616 OO0e00 RTS RO : RETURN 
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O RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 P 3 SEQ 0471 
Pll 10-JAN-78 11:48 *COMMAND ISSUED BY DRIVER SERVICE ROUTINE SEQ 0192 

.SBTTL #COMMAND ISSUED BY DRIVER SERVICE ROUTINE 

ip edamame ical: ~ Saat lara ros ig 

% THIS ROUTINE WILL ISSUE THE COMMAND AS SPECIFIED IN T.CS1 

: A HECK IF A CONTROLLER ERROR OCCURRED. IF A CONTROLLER 

: ERROR OCCURRED E.CERR WILL “ SET IN E.CONT AND 

: CONTROL WILL BE TURN OVER TO THE ROUTINE SPECIFIED BY THE 

: ADDRESS IN A.CONT. 

: REGISTER USE 

: Re ADDDRESS OF RKO& REGISTERS 

: RS ADDRESS OF PARAMETER BLOCK 


CALL JSR RO,1.ISSU 
<ADDRESS OF ERROR RETURN> 
RETURN 


ROUTINES USED: 


I.CCLR 
1.STOR 
gp MMMM EE EAE EERE REE EELERERRLES 
047620 01374 , : MOV .. -(SP) ;STORE COMMAND ISSUED 
047624 Boeose reefers sedans eR Tee3" - : CLEAR CONPORSRY tse 
047630 116537 000000 003002 MOVB P.DRVN(RS),T.CS2’;LOAD IN DRIVE NUMBER 
047636 Ol 003002 000010 MOV T.CS2,RKCS2(Re) ;0 NUMBER FOR COMMAND 
047644 116537 000007 003001 MOVB P.CSIH(RS),1.CS141 ;ST ITS 8-15 OF CS1 
047652 142737 177753 003001 BICB #4C<B.COT#B. CFMT>, T.Colst -C BR L8iTs EXCEPT 
047660 0137: 003000 ooo000 MOV T.CS1,RKCS1(Re2) t issue Cc 
047666 TOEoeS 000000 1S: TSTB RKCS1tRe) :WAIT FOR READY 
Ou767e 90375 BPL 1$ 
7674 bos osoo4e ISR PC. I.STOR ;GO_ST REGISTERS 
047700 032737 100006 003000 BIT #CERR,T.CS1 ;CHECK IF CONTROLLER ERROR OCCUERED 
Bieri Breas, oon conmne = FIP sracse RCE UE PAIS SPPDYG SLEET canons 
047720 052737 100000 003052 BIS WE.MDS,E.CONT ;SET MULTIPLE DRIVE SELECT FLAG 
047726 004737 OSOS46 ISR PCR. CONT tREPORT CONTROLLER ERROR 
7732 O00440 BR 10$ RETURN 
-CHECK IF ANY CONTROLLER ERROR IS SET 
34 032737 oO24000 003000 2s: BIT #CTO!SPAR, T.CSI 
047742 001027 BNE 7§ 
tafe lee 036737 176400 003002 BIT SUFE! PGE! NEM!NED! UPE !WCE!OLT, T.CS2 
ou77e4 032737 131761 003016 BIT HILC!DTYE!FMTE!ECH!BSE!HVRC!COE!DTE! 0PT!0CK,T.ER 
047764 122716 oo0005 CMPB #OR.CLR, (SP) ;CHECK IF CLEAR DRIVE 


MOO _RK611/06 SS VERIF 1 


c 
CZR6M0.P11 


i Be ee 
BS Eee tte 


806260 


052737 
004737 
00S726 
011000 
000200 


oe 


= a ee ee 
wu 
rut 

oO 

3 


oO 
furu 


10-JAN-78 11:48 


000020 
047536 


000100 


001000 
OSOS46 


000014 


000000 


003052 


3$: 
S$: 


7$: 


10$: 


325 


#E.CERR,E.CONT 


PC,R.CONT 
(SP)4 

(RO), *20 
RO 


P P. PRST(R rby ise NOT MOT Bar dah Ml poe ERROR 


;G0'1 A CONTROLLER CLEAR 
ERROR Re TURN 
;SET INTERRUPT ENABLE 


:ADIUST Bs AFOR NORMAL RETURN 


;SET CONTROLLER ERROR DURING 
;__DRIVER SERVICING 


SEQ 0472 
SEG 9193 


CZR6MDO RK611-06 SS VERIF 1 
10-JAN-78 11:48 


CZR6MD.P11 


10263 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Matai at 
BREA CE 


ne 





MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 195 SES 0473 
SEQ 0194 


*#STORE RK611 UNIBUS REGISTERS 

-SBTTL #STORE RK611 UNIBUS REGISTERS 
| tate gemasesdeeameraeaanameeinaaecenaetemmaantn eames: 
;# THIS SUBROUTINE IS CALLED BY THE RKO& DRIVER TO STORE ALL 


i RK611 REGISTER IN TEMPORARY LOCATIONS. 
‘ 

-&% . 

i JSR PC,I.STOR 

i REGISTER USE 

[$00 eoeeeeee aa 

3% 

i Re ADDRESS OF RK611 REGISTERS 


* 
eri ti ttttiiitititiiitittitititiiiiiitiiiiiiireeeri rrr eee re rely 


003000 I.STOR: MOV RKCS1(R2),7.CS1 ;STORE ALL CONTROLLER REGISTERS 
003002 MOV RKCS2(R2),T.CS2@ ; EXCEPT DATA BUFFER 


2 ’ 
mov BRE (Ra) t-BER 
MO KDA 


v RKDA(R2);T.DA 
mov RKDS (Re), 1.0 

RK SEAS): Fasor 
MOV RKDCYL (Re), T.DC 
MOV RKMRI (Re), T.MRI 
MOV RKMRE (R ), T-Re 
MOV RKMR3(Re)’T.MR 
MOV RKECPS(Re),T.POS 
MOV RKECPT (Re); T.PAT 


RTS PC *~ ; RETURN 


CZR6M00 RK611/06 SS VERIF 1 
CZR6EMD.P11 10-JAN-78 11:48 


8S 


ee a ee es be ee pe ep ee 
Bt 


BSee 

33 

0300 

6301 

B30¢ 

030. 

0304 

0305 

103 

1830 

10308 

10309 

10310 

1031 

1031 

1031 

10314 

10315 

ie 

10318 

18326 050170 O42765 177741 
103 050176 042737 000036 
iD3B2 Oe04% 053765 003000 
ieeer Setels Biesee es 
10325 DeaseE 016265 000004 
18368 050234 ita satan 
1032 Oe42 01626 0001e 
103e8 O50eS50 O16e65 000014 
1n34 OSO0eS& Cite6S 000016 
10331 0264 016265 000020 
10336 0S0e72 000207 


MACY11 30A(10S52) 10-JAN-78 12:16 PAGE 196 
#STORE CONTROLLER STATUS 


-SBTTL #STORE CONTROLLER STATUS 





SEQ 0474 
SEQ 0195 


5 ; RERRLLAARLAAAAERELALAT SERA LALAAAFAALARERALALAAAAAALAAAAAARAALLER 


:* 


THE FOLLOWING REGT 


ORD COUNT 


GISTER 


REGISTER 


TRC RC IC RC RC RC RC RC RC RC RC RC RC RC RC RC RC RC Re RC Re ae 


000016 I.CSTS: BIC #177741,P.CS1(RS) 


003000 BIC #36 T.cSt 
000016 BIS T.CS1.P.CSI(RS) 
000020 I.CST1: MOV RKCS2tR2).P.CS2(RS) 
o00022 MOV KWC (RE), P.WCRCRS) 
oo000e4 MOV RKBA(Re),P.BAR(RS) 
000026 MOV KDA( Re) ,P-DTS( RS) 
000036 MOV KDS(Re);P.0S(RS) 
000034 MOV RKER(Re)'P.ER(RS) 
000032 MOV RKASOF (R2) ,P. ASOF (RS) 
000030 MOV RKDCYL(R2),P.DCYL(RS) 
RTS PC 


Bue EBA PPS ec ron 


Y/OFFSET REGISTER 


CALLED BY THE RKO& DRIVER AT PRIORITY 7. 
STERS WILL BE STORED: 


TATUS REGISTER 2 


ERROR REGISTER 
ATT Tae 
CYL R RESS REGISTER 
CALL JSR PC,1.CSTS 
RETURN 


THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN: 


CONTENTS 


RKO& BASE ADDRESS 
ADDRESS OF PARAMETER BLOCK 


5p RRR AERA EERE RARE REESE HALLE E RAL EAEL ERAS RARE EAEAAE LASERS 


;CLEAR ALL BITS EXCEPT FUNCTION 

;OF LAST COMMAND ISSUE 

TION cS} STATUS 

GENERATE CS1 STATUS INFORMATION 
AND BIOL YS REGISTER é 


;STORE ERROR REGISTER 
;STORE ATTENTION SUMMARY AND 


;__OFFSE 
;STORE CYLINDER ADDRESS 
; RETURN 


B16 


cee ere” ‘06 SS VERIF - MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 197 SES 0475 


CZREMD 10-JAN-78 11:48 *GATHER DRIVE STATUS SEQ 019% 
10334 .SBTTL #GATHER DRIVE STATUS 

ited H ee ae ee ere ae 
10338 : THIS SUBROUTINE WILL BE USED TO GATHER DRIVE STATUS 

10339 : BYTE 01, 10, AND 11. IT IS ASSUMED T THE DRIVE 

10340 i HAS PREVIOUSLY BEEN SEIZED. IT RUNS Hat PRIORITY 7. 

10342  SCALL JSR RO,1I.S 

10343 x <ADDRESS OF ERROR RETURN> 

ibaue ; ser 

10346 i THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN: 

10348 :# 

10349 i# REGISTER CONTENTS 

10351 ty 

10352 1 i Re RKO& BASE ADDRESS 

10353 i# RS ADDRESS OF PARAMETER BLOCK 
10355 1% ROUTINES USED: 

10356 i 1. ISSU 

10338 : ; SRKKKKAAAAASAALAAARAAAKASAARASARAAERAL LE AALERARRRRAARRRRRRRRRALEKSREE 
10360 050274 012762 O00001 o00026 I.STAT: MOV #1,RKMR1(R2) jLOAD MAINTENANCE REGISTER 1 
1B3e3 112737 01 003000 MOVB aor SEL T.CS1 ?LOAD 

10363 50316 004037 7620 JSR 1s$u Get sTarus BYTES O1 

iB3ee pepaie eae go3024 oo00044 MOV me. e. ADL(RS) ?STORE STATUS BYTE O1 MESS A 
10366 050324 01376 26 oo0004%6 MOV T.MR3,P.B01(R5) :STORE STATUS BYTE O1 MESS B 
10:36 050332 012762 000026 MOV #2, RichRi Re) ; LORD _MAINTENANC NCE REGISTER 1 
1B3e6 OSO340 112737 000001 003000 MOVB #OR.SEL,T.CS1 +LOAD 

ipar) beoses ososay CO NveeO ye (0, f. 1580 iCEROR RETURN <> tO 

10372 050354 013765 003024 oo00S0 MOV T.MR2,P.A10(RS) :STORE STATUS BYTE 10 MESS A 
10373 050362 013765 0030e6 OS2 MOV T B1O(RS) :STORE STATUS BYTE 10 MESS B 
10374 050370 012762 000026 MOV #3, RKMRI (Re) ; LOAD MAINTENANC _REGISTER 
10376 050376 112737 o00001 003000 MOVB #OR.SEL,T.CS1 ?LOAD COMMAND 

10377 gS0404 004037 047 JSR RO,1.1SSu" ;GET S aus BYTES 11 

10379 oS0412 eae 003024 000054 MOV T.MR2,P.A1L1(RS) :STORE STATUS BYTE 11 MESS A 
10380 O50420 013765 003026 o00056 MOV T.MR3,P.B11(RS) :STORE STATUS BYTE 11 MESS B 
19381 os0426 CLR RKMR1tR2) jLORD MAINTENANCE REGISTER 1 
10385 oso4 112737 003000 MOVB #OR.SEL,T.CS1 ‘LOAD C 

10384 Osova6 G040 Bay Eeo JSR RO,1.1SsSu igen sfarus ByTES 00 

10386 OSO446 (13765 003024 oD0040 MOV T.MR2,P.A00(RS) j STORE STATUS BYTE OO MESS A 
10387 O504S4 0613765 003026 oo004e MOV T. Aue P. BO0¢ RS) :STORE STATUS BYTE OO MESS B 
10388 O50462 032737 O01000 O03026 BIT PAR, T.MR3 ‘CHECK IF BAD PARITY DETECTED BY DRIVE 
10389 050470 GO01407 BEQ 33 :NO, RETURN NORMALLY 


C16 


CZREMDO_ RK611/06 ss VERIF : MACY11 308 < 1952) 10-JAN-78 12:16 PAGE 198 
CZRGMD.P 10-JAN-78 11:48 GATHER DRIVE STATUS 
1 7 2737 oO2000 003052 Is #E.DPAR,E.CONT s INDICATE BAD PARITY DETECTED BY ORIVE 
18330 pepee6 BRGg535 pesege 918 PC prea AT : REPORT RTE BOR 
10392 oS0S04 011000 3S: MOV (RO), RO +LOAD RO FoR ERROR RETURN 
19333 050506 000200 RTS RO + RETURN 
10395 050510 oS2765 001000 oo0014 SS: BIS #PBSVAL ,P.PRST(RS) ;SET PARAMETER BLOCK STATUS VALID 
10396 050516 005720 TST (RO>+ :ADJUST RO FOR NORMAL RETURN 
19337 050520 000200 RTS RETURN 


CZR6M00 RK611/06 SS VERIF 1 MACY11 308(10S52) 10-JAN-78 12:16 PAGE 199 SEQ 0477 


CZROMO.P11 10-JAN-78 11:48 *COMMON DRIVER RETURNS SEQ 0198 
19399 .SBTTL  #*COMMON DRIVER RETURNS 

10401 osose2e 105037 003101 R.ABNL: CLRE INTHSK j INHIBIT FUTURE DRIVE INTERRUPT REPORTING 
1808 §25e88 BB dea5 a APE bg an + AAO URN 

1040S OSOS34 105037 003101 R.NORM: CLRB —‘-INTNSK ; INHIBIT FUTURE DRIVE INTERRUPT REPORTING 
10408 004777 132300 ISR PC, JA. NORM ; INDICATE NORMAL RETURN 

10407 050544 000207 RTS PC : RETURN 

isi} Genes 19S pogo, = R-COMT: Shag TNS ABRIL FUSER ANRMIMEE SVE" 
10411 050556 005037 003114 CLR W. ORY :CLEAR T TIMING COUNT FOR THIS ORIV 

10412 Q5056e 004777 132262 ISR PC, aA. CONT ! INDICATE CONTROLLER ERROR RETURN 

10413 050566 000207 RTS PC ? RETURN 


E16 


CZREMDO RKE11/06 SS VERIF 1 WACY11 30A( 1052) 10-7a ae 12:16 PAGE 200 SEQ 0478 
CZR6M0.P11 10-JAN-78 11:48 *COMMAND INITA TOR SEG 0199 
aM -SBTTL #COMMAND INITATOR 
FF aledaiehainieieiaiaisiaisiaieiaiaieiaieieidheleieieiaieieiaieiaieieieieiaieiaisieieieiaisisiaisieisieiaisieiieieisieiaieleiel 
* THIS SUBROUTINE WILL INITIATE ALL COMMANDS AS SPECIFIED 
* BY THE COMMAND FIELD OF THE PARAMETER BLOCK. THE FOLLOWING 


SPECIAL COMMAND ARE ALSO EXECUTED: 
RELEASE 
CONROLLER CLEAR 
SUBSYSTEM CLEAI of 
READ ALL DRIVE STATUS 
READ SPECIFIED HEADER 
THE ABOVE COMMANDS ARE TRANSLATED INTO A SEQUENCE OF COMMANDS 
CALL JSR PC,C.INIT 
actor OF PARAMETER BLOCK> 
FOR THE SEQUENTIAL OPERATIONS, THE DRIVER WILL LOAD THE 
LOCATIONS, PBLKT AND INTMSK. 
ROUTINES wre 


SPppereerreeerer ee eee rTP eeee 
Sceganeoanwaaaneneaseseae 
N WM OWDNOU LS Wh OWONO UL 


ee be ee ee be he be Be be ee ee ee be | ee pe 


Wd. 
393 1.cSTS 
40 1.STA 
nt 1.CCLR 
ne +s RKEKKRRKRAAKESRAASARASAERAAAA ERE AARARKARARARAARERARA HAAR HAHAHA AZAEE 
0445 oS0S70 o10s46 . INIT: MOV RS,-(SP) ;STORE RS ON STACK 
bve 050572 o010446 RY’ -(SP) : STORE STAC 
0447 050574 010346 MOV *-(5P) :STORE R3 ON STACK 
buug psobo8 pLeTue Noy Ree it 25} iS TORE B ON STACK 
o480 Osdebe 010046 MOV 0; -(SP) STORE FO 
0451 13746 177776 MOV PS’-(SP) 
O4 050610 013737 OO03042 177776 MOV RKPRI.PS Hock fia RRO STRTERR 
o4 050616 017605 16 MOV 316(SP)_RS Re PARAMETER Mal ABDRESS 
0454 050622 062766 O00002 onp0016 ADD #2, 16(SP) BO SUST 
O45S 050630 016504 00 MOV P.ORVN(RS),RY STORE DR VEN NUMBER 
0456 050634 2704 177770 BIC ##C<DRVMSK$ , RY ;MASK OUT JUNK 
O45 0640 010537 3112 MOV RS, PBLKT :LOAD PARAMETER BLOCK TABLE 
0458 050644 116437 003102 003101 MOVB 1. ORVCR4Y), INTMSK’ ;LOAD INTERRUPT 
0459 050652 116437 0031 003100 MOVB 1-ORV(R4))W. TIME :SET WATCH-DOG TIER FLAG 
O60 013737 3 003114 MOV iW: SEC, W.ORV ;LOAD WATCH-DOG TIME 
Oube OSO666 013702 003036 MOV RKBAS, Re ;LOAD R2 WITH RKO& ADDRESS BASE 
0464 ; RESET ALL BITS IN PROGRAM DEVICE STATUS REGISTER EXCEPT 
O46S : ORIVE IN USE 
ues : WRITE FO FOR WRITE CHECK 
0468 : DROP BR IVE FROM TEST SEQUENCE 
0469 : INHIBIT BUS ADDRESS INCREMENT 


16 


CZREMDG. RK611/06 SS VERIF MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 201 SEQ 0479 
CZREMD.P11 10-JAN-78 11: 148 *#COMMAND INITATOR SFG O2c0 
10470 050672 042765 075176 000014 BIC #tC<DRVUSE !W. WCK! NOCHK! DRPDRV! OTBAII> ,P. PRST(RS) 
1047 7 19500 MOV RS,RO STORE PAR ef BLOCK ADDRESS 
1047 7 2700 oo0016 ADD #P°CS1,RO ; CALCULATE hai: T 1 LOCATION TO BE CLEARED 
10474 07 010501 MOV ,R1 : STORE K ADDRESS 
12476 050710 062701 o00062 ADD #P’EPAT,R1 + BOC CULATE ANaot ROOST On TO BE CLEARED 
10477 714 1S: CLR (RO)+ CLEAR 
10478 Os07 16 eatery CMP RO,R1 Ck i EE pRNISHED 
104 0507, 101775 BLOS 1$ eat fi Ae TURN PARAMETER 
10480 050722 105037 003074 CLRB 1. ISRL iN, CLE RELEASE OR INTERRUPT ISSUED 
10481 050726 010465 000020 MOV RY, P.CS2(RS) ?STORE DRIVE R 
10482 050732 O0SO62 o000c6 CLR RKMRI (Re) ;CLEAR RKO6 MAINTENANCE REGISTER 1 
10483 050736 132765 O00040 000001 BITB #BITS,P.CMND(RS)’;CHECK IF SPECIAL COMMAND 
10484 050744 001402 BEQ 3 ;HO PROCESS 
10485 050746 000137 os5146e2 IMP C. SPEC : JUMP TO SPECIAL COMMAND PROCESSOR 
10487 OS07S2 122765 000107 o00001 3s: CMPB #UNLOAD, P. CMND(RS) ic CK IF POSITIONING COMMAND 
10488 ; START SPINDLE 
10489 : RECALIBRATE 
10490 : OFFSET 
iBi33 | DREbeo 
10493 ‘ 

10494 OS0760 101174 BHI 25S ; DRIVE C 

10495 : SELECT DRIVE 

10496 : PACK ACK 

10499 050762 122765 000117 oD0001 CMPB #SEEK,P.CMND(RS) ;CHECK IF DATA TRANSFER 
19500 050770 103540 BLO 20$ YES, DATA TRANSFER COMMAND 
10502 WRITE DATA 

10503 ; READ HEADER 

10504 ; WR TE HEADER 

10505 CHECK ue 

10506 0S0772 016562 oo00020 oD0010 MOV P. cse(RS), RKcsa Re nied IVE NUNB 

10507 051000 052765 oo00002 o00014 BIS #DRVPOS, P: PRST(RS) T DRIVE SI TTONING 
10508 051006 005037 003054 CLR O.WAIT Ch AR WAIT FOR COMMAND 
10509 051012 122765 0600117 oo0001 CMPB #SEEK,P.CMNO(RS)’;CHECK IF SEEK 

10510 051020 001007 BNE S$ :NO, CHECK FOR OFFSET 

10511 051022 016562 oo0002 oD0020 MOV P.CYLN(RS), axocyt (Re) -LOAD CYLINDER AODRESS 
10512 051030 016562 oo00004 ocDn0006 MOV P.SECT(RS)REDA(R2) -LOAD SECTOR AND T 

10513 051036 000431 BR 8s ;GO ISSUE COMMAND 

10515 OS1040 122765 000115 o00001 SS: CMPB BOFFSET,P.CMND(RS) ;CHECK IF OFFSET 

10516 051046 001007 BNE 6$ NO’ CHECK FOR UNLOAD 

10517 051050 116565 oo00006 000032 MOVB P. OFST(RS) ,P.ASOE (RS) ; STORE OFFSET 

10518 051056 O16562 oo00032 Oo00i6 MOV P_ASOF (RS)? * RKAEOF (RE) ‘LOAD OFFSET REGISTER 
10818 051064 OcO4I6 BR ag ;GO ISSUE COMMAND 

10521 051066 122765 OO0111 OO0001 6&S: CMPB #SRTSPL,P.CMND(RS) ;CHECK IF START SPINDLE 
10522 051074 001003 BNE 7s. ;NO. CHECK I 

10523 051076 013737 003066 003114 MOV DRV LOAD WATCH DOG TIME FOR 1 MINUTE 
10524 051104 122765 000113 oOo00001 7s: CMPB RECA P. CMND( RSS” -CHECK IF RECAL 

10525 OSili2 001003 BNE as :NO, CONTINUE 


G16 


12:16 PAGE 202 


SES 0201 


SEG 0480 


10-JAN-78 


#COMMAND INITATOR 


MACY11 30A(10S2) 


6 SS VERIF 1 
O-JAN-78 11:48 
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108: 


10-JAN-78 12:16 PAGE 203 
*SPECIAL COMMAND PROCESSING 


10$ -NO, PROCESS OTHER COMMANDS 
-CS2( RS), RKCS2(R2)" =L CS2 FOR COMMAND 
P-CSIH(RS}.P.CS1+1(R5) ;STORE BITS 8-15 OF CSI 
#tC<CFMT!COT> ,P.CS1I(RS) ,CLEAR ALL Bite EXCEPT FORMAT 
» AND DRIVE TYPE 
#OR.SEL,P.CS1(RS) -ST 
P.CS1(R5),RKCSI(R2) ; ISSUE COMMAND 
PC W.WTCH -CALL WATCH-DOG TIMER 
RKESi(R2),P.CS1(RS) ;STORE COMMAND AND STATUS REG. 1 
#ROY,P.CSI(RS) ;WAIT FOR READY 
1.CST1 :STORE CONTROLLER REGISTERS 
Rene (G2)s6 BOR Ne) GaTOSE-TOLUS,BY'EsoerEsene 
RRR 8 T  RES Raed CONPROCLER ERRoR 
6$ NO DRIVE STATUS 
W. TIME j RESET WATCH TIMING ON THIS DRIVE 
DR >CL COUNT 


pO, P. PRST(RS) | grils FN ROB. "BE Tuan 


#MDS,P.CS2(RS) CHEK MULTIPLE DRIVE SELECT 
§ CATE CONTROLLER ERROR 
RO,I.CCLR CFP EP AR! 


RROR_ RETURN 
#NED!UFE,P. csacrd) pCHe CK F_ NON-EXISTENT DRIVE OR UNIT FIELD ERROR 


OR OR 
i »P.DS(RS) CH CK_IF ORIVE AVAILIABLE 


RVSZD P. pst Ra) i INDICATE RIVE Is SEIZED BY OTHER PORT 


PC 


CoRTR alee ianbige toRe PE REGISTERS 


RO,I.STAT canara DRIVE STATUS 
W.T Mm :ST TIMING ON DRIVE 

> DRV s ore “atte G in 
BNOCHK, ,P. pastins) check IF F aShECk E MODE 
RKCS1(R2) CLEAR INTERRUPT ENABLE 
PCR. NORM : REPOR COMPLETE 
C.RTRN RC PoRE” REGISTERS 
#E.MDS,E.CONT  ;SET MULTIPLE DRIVE SELECT 
PC_R.CONT : INDICATE CONTROLLER ERROR 
C.RTRN 
#RELEAS,P.CMND(RS) CHECK | IF RELEASE COMMAND 

:N K IF READ ALL HEADERS 
RS,O.WAIT ; STORE BRAMETER | BLOCK ADDRESS IN 
T FOR COMMAND 


WA 
BRLS P.cS2(RS) iSET REL LEASE BIT 
C52(R5),RKCS2(R2) ;LOAD CS2 FOR DESELECT 
TSRL’ -SET’ FLAG FOR RELEASE COMMAND 
ai Tie cg1t1 (RS); “STORE BITS 8-1S OF CSI 
Rie TOEMT COTS -B -CS1 CRS) GCLEAR ALL BITS EXCEPT FORMAT 


= 


SEO 0481 


SES Oe0e2 
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10638 030 112765 0001 000016 MOVB #SELDRV,P.CS1(RS) ;STORE COMMAND 

10639 peste Ae erecta 000014 BIT #NOCHK,P.PRST(RS) :CHECK IF NO CHECK MODE 

10640 052044 0014 BEQ 11$ sNO 90 NOT RESET INTERRUPT ENABLE 

1064 2765 000100 oo0016 BIC SIE.P.CSI1(RS) :RESET INTERRUPT ENABLE 

1064 4 O16 000016 oo0000 11S: MOV P.CS1(R5),RKCS1(R2) ; ISSUE COMMAND 

10643 137 oSe44e MP C:RTRN sRESTORE REGISTERS 

1064S Os2066 122765 000164 o00001 13S: CMPB #RDALHD,P.CMND(RS) ;CHECK IF READ ALL HEADERS 

10646 Deed O01 BNE 30$ ;NO, CHECK IF CONTROLLER CLEAR 

1064 76 0105. 003054 MOV RS.O.WAIT ‘SET WAITING FOR COMMAND COMMPLETION 

10648 OS2eiCc2 016537 000010 003070 MOV P.BALO(RS),HDR.AD ;LOAD HEADER ADDRESS 

10649 95110 132765 000020 000007 BITB #8.CFMT,P.CSIH(RS)’ -CHECK IF 22 SECTOR F 

10650 116 OO014 BEQ 14S >YES, LOAD 22 IN HEADER COUNT 

10651 052120 012737 oo00024 003072 MOV #20. ,HOR.CT *LOAO 20 IN SECTOR COUNT 

1068¢ 0521 000403 BR 225 :GO ISSUE READ HEADER COMMAND 

10654 130 012737 o00026 003072 14S: MOV #22. ,HDR.CT sLOAD 22 IN SECTOR COUNT 

10655 pest se 016562 o00002 000020 225: MOV P.CYLN(RS),RKDCYL(R2) ;LOAD CYLINDER ADDRESS 

10656 052144 016 000004 oo0006 MOV P.SECT(RS)RKDA(Re) ;LOAD TRACK NUMBER 

10657 OS52iSe 016562 000020 O00010 MOV P.CS2(RS).RKCS2(Re) :LOAD DRIVE NUMBER 

10658 O52160 116565 000007 000017 MOVB P.CSIH(RS) p-CSi+1 (RS) ;STORE BITS 8-15 OF CS1 

1065 052166 042765 165777 O00016 BIC #tC<CFMT!CDT> ,P.CS1(  ASLEAR ALL BITS EXCEPT DRIVE TYPE 

10661 OS2174 112765 000125 oo0016 MOVB #ROHEAD,P.CS1(RS) ;STORE READ HEADER COMMAND 

10662 OSe202 632765 o00400 000014 BIT #NOCHK,P.PRST(RS) :CHECK IF NO CHECK MODE 

10663 O5e210 001027 BNE 34S -YES, INDICATE ILLEGAL DRIVER COMMAND 

10664 OS522l2 016562 o00016 oo0000 MOV P.CS1(RS),RKCS1(Re) :IS READ HEADER 

10665 2 000137 oS2e44e IMP C:!RTRN ;RESTORE REGISTERS 

10667 224 2765 000176 900001 30S: CMPB #CONCLR,P.CMND(RS) ;CHECK IF CONTROLLER CLEAR 

10668 232 are BNE 32S . ;NO. CHECK IF SUBSYSTEM CLEAR 

106639 052234 004037 047536 ISR RO,I.CCLR *CLEAR CONTROLLER 

10670 Big He C.RTRN ‘ERROR RETURN 

10671 24 765 ooo400 000014 BIT #NOCHK,P.PRST(RSS :CHECK IF NO CHECK MODE 

10672 OS2250 001472 BEQ 40$ ; INDICATE NORMAL RETURN 

10673 052252 ooo0000 CLR RKCS1(R2) :RESET INTERRUPT ENABLE 

10674 052256 000467 BR 40$ : INDICATE NORMAL RETURN 

1067) 260 122765 000177 O00001 32S: CMPB #SUBCLR,P.CMND(RS) ;CHECK IF SUBSYSTEM CLEAR 

{Bese 052266 0014 BEQ 6$ ;YES, CLEAR SUBSYSTEM 

10678 052270 052737 000100 oo30S2 34S: BIS #E.ILLD,E.CONT SET’ ILLEGAL DRIVER COMMAND 

10679 052276 004737 OS0S46 ISR PCR. CONT :REPORT ERROR 

19680 052302 000457 BR C.RTRN :RESTORE REGISTERS 

10682 052304 012762 oOO00040 oO00010 36S: MOV #SCLR,RKCS2(R2) ; ISSUE SUBSYSTEM CLEAR i 

10683 O5e312 016265 o00000 o00016 MOV RKCS1(R2).P.CSI1(RS) ;STORE COMMAND AND STATUS REGISTER 1 

10684 052320 032765 100000 O00016 BIT #CERR,P.CS1(R5) ;CLEAR IF CONTROLLER ERROR RESET 

1068S Ob¢ 26 O01406 BEQ 3 :NO, FINISH COMMAND 

10685 052330 052737 000001 003052 BIS #B1TO,E.CONT :SEt CLEAR SUBSYSTEM DID NOT CLEAR 

ibess 052336 004737 oSOS4e JSR PC.R. CONT i RESORT CRROR Oe 

10688 OSe342 000437 BR C.RTRN :RESTORE REGISTERS 

10631 052344 013746 003060 378: MOV W.MILI,-(SP) ; LOAD 16 MIL I-SECOND COUNT FOR ATTENTION 

10693 052350 016265 OO0000 oo001e 38S: MOV RKCS1(R2),P.CS1(RS) ;STORE CS1 


J16 
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CZR6MD.P11 10-JAN-78 11:48 *SPECIAL COMMAND PROCESSING SEQ 0204 
ibege Besses Baldi, OCU? COonle Beg Sag CSECRS) —-ECHECK FINISH COMMAND Cone 
19636 366 005316 DEC (SP) + SECREMENT 16 MILISECOND COUNT 
isese Beeire SoLyeC my SBOE PERE TEU RomIN 
10639 374 052737 oo0040 003052 BIS #—.SCLR,E.CONT pSET_ SUBSYSTEM CLEAR DID NOT CLEAR 
10701 oOSe4o2 004737 os0s46 ISR PC,R.CONT :REPORT ERROR 
10706 052406 o00415 BR C.RTRN ;RESTORE REGISTER 
10704 10 0057 39S: TST (SP)+ :ADJUST STACK 
1070S OSe4i2 032765 oo0400 000014 BIT #NOCHK,P.PRST(RSS ;CHECK IF NO CHECK MODE 
10706 Oeesed 00101 BNE C.RTRN YES, STORE REGISTERS 
1070 Geete 112737 177777 003074 MOVB #-1,1.ISRL :SET INTERRUPT ENABLE SET 
10708 30 012762 000100 oo0000 MOV #IE’RKCSI(R2) SET INTERRUPT ENABLE 
19708 052436 004737 050534 40S: JSR PC,R. NORM : INDICATE NORMAL TERMINATION 
10711 OS2e442 012637 177776 C.RTRN: MOV (SP)+,PS ;RESTORE PSW 
10712 O5e446 012600 MOV (SP)+)RO ?RESTORE RO 
10713 O524SO 012601 MOV (SP)+'Ri *RESTORE R1 
10714 S2 012602 MOV (SP)+;Re :RESTORE Re 
10715 052454 012603 MOV (5P)+°R3 :RESTORE R3 
10718 2456 012604 MOV (SP)+' RY ?RESTORE RY 
1071 24 012605 MOV (SP)+/RS :RESTORE RS 
10718 OS2462 000207 RTS PC * RETURN 
10718 .SBTTL OCTAL TO BINARY CONVERSION ROUTINE 
1753 "pause aa alla raceme ne tell daa ia Diael SE ie taka i 
10753 is NETH BONULL <HODS OR COMMAS IF THE CHARACTERS ARE LEGA See 
10725 1% IT WILL GENERATE TWO BINARY WORDS PLACING THE LOW 16 BITS 
10726 i ON THE STACK AND THE HIGH 16 BITS IN LOCATION SHIOCT. 
10728 ? #CALL 
107293 * MOV <ADDRESS OF ASCII STRING>,-(SP) 
10730 1 a JSR PC, OCTBIN 
10731 1% <ADDRESS OF ERROR RETURN> 
1835 3 sien 
19730 : 5 SEARLES ERAA ERA AA EER EEA RARE AER LER LRA RAE RLAAA ALARA AA LAAERALAAEAKE 
10736 oS2464 010046 OCTBIN: MOV RO, -(SP) ;SAVE RO 
10737 Obe466 010146 MOV R1;-(SP) :SAVE Ri 
10738 052470 010246 MOV R2’-(SP) :SAVE Re 
ip7aa Oesu7e pose, C0010 wy tar) ne ieee aR DATA WORDS) SENG 
10741 05 005002 CLR Re ; 
1074e 0525 112046 2s: MOVE (RO)+,-(SP) ;PICK THIS CHARACTER 
10743 052504 1423 BEQ 3$ :IF ZERO GET OUT 
10744 O52 121627 oo00S4 CMPB (SP), #’, :CHECK IF COMMA 
1074S O5e51¢ 1420 BEG :IF COMMA GET OUT 
leew Geseey A§sq45 00060 gre Sesh 2RR Bete Teer FS 
10748 OS2S22 122716 oO00067 CMPB #°7, (SP) ; 
10749 052526 o0e425 BLT 4g 


K16 
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10750 006301 ASL R1 : #2 

1978 pese39 006102 ROL Re 

1o> eeatee RoC Jap. 

ipoea BOE 307 fet - 

10755 4 102 ROL Re 

10758 44 716 177770 BIC #tC7, (SP) ;STRIP THE ASCII JUNK 

10752 29 80D (oP )+, Ri ;ADD THIS DIGIT 

10753 4 726 3S: TST (SP)+ :CLEAN PARTIAL FROM STACK 

10760 1 166 000010 MOV R1, 10(SP) :SAVE RESULT 

10761 102 052616 MOV R2' $HIOCT 

1076¢ OSe5b6 O1e60e MOV (SP)+,Re ;RESTORE R2 

107 12601 MOV (SP)+'R1 *RESTORE RI 

10764 052572 012600 MOV (5P)+'RO !RESTORE RO 

10765 052574 062716 o00002 ADD #2, (SP) ‘ADJUST RETU 

10768 052600 000207 RTS PC RETURN 

10768 OS2602 005726 4$: TST (SP)+ ;CLEAN UP PARTIAL FROM STACK 

10769 Oee604 012602 MOV (SP)+,Re ?RESTORE Re 

107 26 012601 MOV (SP)+'RI :RESTORE RI 

10771 052610 012600 MOV (5P)+’RO ?RESTORE RO 

10776 Oseble 013616 nov a(sP)+, (SP) jBUT ADDRESS, OF ERROR ROUTINE ON STACK 

10774 052616 oo00000 SHIOCT: .WORD 0 ‘HIGH ORDER BITS GO HERE 

10778 .SBTTL RANDOM NUMBER GENERATOR ROUTINE 

16958 STATS ROUTING Ie A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 

10773 j WITH A RANGE OF O TO 2(4+33)-1. 

10781 1% ” JSR PC, SRAND ;;CALL_THE ROUTINE 

10782 * 3 RETURN :?RETURN HERE THE RANDOM 

10783 i ::NUMBER WILL BE IN 

i97et ;% ; ; SHINUM, SLONUM 

0786 OS2620 SRAND: 

10787 OS2620 o10046 MOV RO, -(SP) ;;PUSH RO ON STACK 

10788 OS5e62e2 010146 MOV R1,-(SP) :?PUSH R1 ON STACK 

10789 O52e624 oO10246 MOV R2’-( SP) +:PUSH Re ON STACK 

10790 052626 013700 oS2720 MOV $LONUM, RO ::SET RO WITH LOW 

10791 Bese se 013701 052716 MOV SHINUM;R1 ::SET Rl WITH HIGH 

10792 052636 012702 177771 MOV #-7,R2 ::SET SHIFT COUNT 

10793 OS5e642 006300 1S: ASL RO ::SHIFT RO LEFT AND 

terse Beste Boel me ees rsa oanee Rt AO 

10796 OS2650 001374 BNE 1$ ;:CONTINUE SHIFT LOOP 

10797 Oaeb5e 063700 052720 ADD $LONUM, RO j }ADD NUMBER TO MAKE x 129 

107 pesees 701 0S2716 ADD $HINUM, R1 ::ADD NUMBER TO MAKE X 129 

ieee? Breese Bpecey Ool0S/ spp glOs7sAOFRepstarE Cae 

{BBS pesese 062701 047401 ADD #47401,R1 *:ADD HIGH CONSTANT 

10803 052676 010037 052720 MOV RO, SLONUM ::SAVE RO 

10804 052702 010137 052716 MOV Ri’ $HINUM ::SAVE R1 

108 052706 Ol2602 MOV (SP)+,Re ::POP STACK INTO Re 


L16 
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10806 052710 012601 MOV (SP)+,R1 ;;POP STACK INTO R1 

tB856 Oee719 89 dee ptm UNTO Re 

108 716 176543 SHINUM: .WORD 176543 as 

10810 052720 123456 SLONUM: .WORD 123456 

i 13 -SBTTL TYPE ROUTINE 

l 1 33 SHEAASASKRERAAAAKAAASRKRAERASREAKLEKRERAERASSERARALESRERLARSRRARRRLSS 

ieee Soe ROUTINE Wig, “TRGERTT A RUPGERT QF MUL -GHORRGTERS TER ope EEC 
iBeig anche: et ~Conraine "He, Chamat Teel To 8c USED OS THe FILLER Chanacrenr. 
i 18 tENOTES: SF itte CONT AINE THE RHOBSC TER 3 aii AFTER. ; 
10820 :#CALL: 

1 : :#1) USING A TRAP I TRUCTION 

i if TYPE . S3OR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
ieee? iS Revlon 

ibase i* 

13858 9527 105737 001157 $TYPE: TSTB STPFLG $3 is THERE A TERMINAL? 

1 7 1 L 1§ 8 IF YES 

i 30 052730 HALT ::HALT HERE IF NO TERMINAL 

1 beara 1 1$: MOV -(SP) i EEOYE 

1 7. oo0002 MOV aetsP),RO ::GET ABORESS OF ASCIZ STRING 

10834 05274, 122737 000001 001340 CMPB #APTENV, SENV ::RUNNING IN APT MODE 

10836 Oe8 303+ ooo100 001341 Be —- BES rspoon. senvn i:npOn MESHGE TO PTO 

18637 052766 I BEG 62S : ta 83 cre K FOR CONSOLE 

106 7 10037 052772 MOV RO,61$ :3SE MESSAGE ADDRESS FOR APT 

10839 37 os55420 JSR PC’ $ATY3 SPOOL NE TO APT 

ibe us he Bie er 

i 4 t3 000040 001341 625: gir B SA TCSUP, SENVM Hs CONSOL. R SSED 

iGess B23559 eer 2s: MOVB CRO) +, (SP) > PU CHRRRC TER YO. BE TYPED ONTO STACK 
iets Gesgis Ghe?ee cos: BE PENL po FRE ERT MB YOR por tT OFP HAE sta 

10847 4 7 oo0002 3S: ADD #2, (SP) + Just RETURN PC 

13698 e738 000011 4$: cree BHT, (SP) Hats IF <HT> 

1085 053030 122716 o00200 CMPB BCRLF , (SP) ;;BRANCH IF NOT <CRLF> 

1085 Peshae B62 BaF or ;;POP  <CR><LF> EQUIV 

itees Beane Agr scat adalat 

iGess Gases) dpavee 952200 gee Sgvereny PR CHP ERT 

10858 5305 4737 053134 S$: ISR PC. STYPEC 30 VRE THIS ogMBRACTER 

1 0 123726 001156 6$: CMPB SFILLC, (SP)+ ::IS IT TIME FILLER CHARS. ? 

10860 053062 001350 BNE 2s ::IF NO GO GET NEXT CHAR. 

10861 O53064 013746 001154 MOV $NULL , -( SP) ::GET # OF FILLER CHARS. NEEDED 


<n 
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ZREMO 
pees ;;ANO THE NULL CHAR. 
0863 953070 105366 000001 7$: DECE 1(SP) ; DOES A NULL NEED TO. BE E Tyre : os eamen 
Reed best7e B5873 053134 Fp BS STYPEC BR Hee A NULL 
O86 1Ge 105337 053200 DECE SCHARCN $5 DO NOT COUNT AS A COUNT 
= ;HORIZONTAL TAB PROCESSOR 

78 10 le ooo040 gs: MOVB a’ (SP) . ; ; REPLACE TAB WITH SPACE 
o> 13 ? 7 053200 . 27 iB Ao ae ; } BRANCH if NOT AT 
0874 1328 one 3s - +3 TAB STOP OFF STACK 
B88 65678 BR SP ts 44 RENT cuaRActen 

1087 126010 STYPEC: rsTB aSTPS :;WAIT UNTIL PRINTER IS READY 


YS Cuftac TER B ARRIAGE RETURN? o 
37 cLRe ; } YES--CL AR CHARACTER COUNT 
061488 ooodi2 oooooe 1S: nes F,2(SP) a c TERA LINE FEED? - 


Oe ee 


pRaBRe RSs 
seaman Be 


bb bb bo 0 8 0 


HWP TSRGSS PuBNNT 
foe 
a 
93 
a3 
Bes 
a 
3 


10887 5085 CHARCNT. Moro Qe + EOBRACTER COUNT STORAGE 

i Besse 00020 TYPEX: RTS Bc = 

ise 

13632 

fe FS sett, DOULE PRECISION MATIPLY EERQUTIN eee 
10895 # SUBROUTINE 10 TTP, y. {uo DOUBLE PRECISION INTEGERS 

i 0897 HH Ss L GIS (RO-RS) 

1 ta ENTER WITH SR. PC, M.DPIM 

16849 if MULTIPCTER TH’ RoORS 

10900 a CAND IN R4Y-RS 

iD3pe i# RETURNED IN RO-R1-R2-R3 

1 ° 3 SASRASAARSSSSSAAERKAAARARSRRAAKARRRAAASRARAKARARAASRAARARRRARAAERSE 
10904 053204 oos000 M°DPIM: CLR RO ;CLEAR HI ORDER WORDS 

1 3g08 905001 CLR Ri 

i 3610 O1e746 000041 i nov B41, -(SP) ;MOVE 33 (DEC) TO COUNTER 

10908 16 006001 > * ROR R1 

10308 32. 006002 ROR Re ;SHIFT TO ADD 

i fee ee it we 

10313 053230 ADC RO" Eo ; DOUBLE PRECISION TO OBTAIN NEW PARTIAL 
10915 053234 005316 M.DPO2: DEC !DECREMENT COUNTER 

10316 0532 1366 BNE M.OPO1L 

10917 0532 726 TS (SP)+ ;REMOVE THE COUNTER 


a ee + + eee ee 
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19918 0S3242 000207 RTS PC 

: 1 

H 5381 5 SSSTTL” DOUBLE-PRECISION DIVIDE SUBROUTINE |S Ot 
16985 3% 1¥5 “PRECISION INTEGER DIVISION 
io3es i USES ALL GIS OFROCRE) 

i a ENTER WITH PCM. DPI 

1635 a58 3% vI IN ADR Re-RS 

S388 i Meisel we fufteD I, g0-21 

10330 i QUOT RE IN Re 

1Ras¢ ae : s SEKAKAASRSERRERRERERERREREE SESESSKKSESKERASRSKEREE 
1 000040 M2DPID: MOV #40, -( : FOR DIVISION CYCLES 
10934 MOV Ra, ~ (SP jE 

10336 nov RS = ib VISOR TO THE STACK 
18338 — NEG iF baie cll THE DIVISOR 

i a BBB CSP 

1 ADC y ;PERFORM THE INITIAL SUBTRACTION 
i 3 oooo02 ADD a ),RO “_ 

1B aq aR A eat Thrs Is a TENGEN CASTING ARey ETT 
10944 M.DP4O: ROL R3 

i ROL Re 

1 ROL Ri 

1 ROL RO 

1 Tor asP TEST, “CARRY ICATOR™ 

1 Q M.OP41 N ADD ELSE SUBTRACT 
1 CLR asP OT EAR FOR NEXT TIME 

1 ooo002 ADD e(SP),Ri 

1 ;ADD -(DIVISOR) 

1 ADC asP ; 1 :SET “CARRY” 

1 oooo04 ADD 4(SP) RO’ ;< 

1 BR M.OP42 

i M.DP41: ADD RS, Rl ; seeimmaes 

10958 Ag aSP 0 j 1 reef = =¢ 420k 

1B aea M.DPY2: Abe asP : : SET “CARRY” 

1096 TST asP :TEST THE UPDATE INDICATOR 

1 BEQ +4 > :IF ZERO FORGET IT 

1 INC R3 : 1 ?NO CARRY POSSIBLE HERE 

10964 oooo0s DEC (SP) 3< :DECREMENT COUNTER 

10965 BGT M.DP4O ?BR IF MORE TO DO 

10966 ROR R3 

1 BCS M. OP4Y4 

1 ADD RS,R1 

1096 ADC RO 

19370 ADD R4, RO 

1097¢ M.DP44: ROL R3 

1097 000010 ADD #10,SP ;ADJUST STACK BY 4 WORDS 





ae 





Sooerecenre cerita r ena eseet 


O0O00000000 


ee a ee ee ee ee bb Pb eb eb be bb be 


es a bb 0 0 0 bb ete 


000 
furor 
won 


000006 





-SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
ee eee eee ee eee ee eet eaD BIKGY Tannen TD fon 


tk THI 1s 

; #UNSI 

p aC y 

le a 

3% RETURN 

$DB20: SAVREG 
MOV 
MOV 
MOV 
CLR 

BB 
DEC 

T 
Q 

INC 
MOV 6 

nae. 

35: ROR 
ROR 
ROR 
ROR 
ROR 
BIC 


oft 


SOCTVL: .BLKB 
- SBTTL 


14 
DOUBLE LENGTH BINARY 


al AScIZ NUMBE 


x 
8 


B ae-ser UNSIGNED BINARY NUMBER 


TO AN 


{CRE The TO be ORO OF BINARY NUMBER 


THE ADDRESS OF THE FIRST ASCIZ CHAR. 


; SAVE 
i EPICKUP 


i {LOWER HOR 


REGISTERS 
HE pean ae TABLE LOW WORD 


HDRUELEVEN charac paTA. 


WORD 
3 are 


rh DATA TABLE 
GHARACT ER 


PST 01ST IT 
-SOIUST FOL 
ON T 


NTER FOR FIRST 


HE STACK 


LAST DIGIT 
FOR 


Haw if iis: ie Bath TABLE 


TO bec tRAL SB Past RCONVERT ROUTINE 


jpocatasnzpegunsnsneseconenetesenegtneuscueusesnacenseuennsy oles 
NARY NUMBER TO AN UNSIGNED 


i % MOV 
3% JSR 


eset taser TD LhUNeER. T THE GN ROF® 
CALL 


#PNTR,-(SP) 
Pc, a#$DB2D 


HE BINARY NUMBER MUST 


BE 


;;POINTER TO LOW WORD OF BINARY NUMBER 


ames CM 


IS ON THE STACK 
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~ 
i 


3 


oe 
£nmo 





0 0 0 


Bas 


NSS RUPE LR SERRE Seana ToRee SERRE ORE 


CSSREEENOnesceereonoaees 
ee 


C 
igseu0 
ue 


ae 


sesaSeStes9 
maw! 
orrcMoO 





ee ee ee ee ee ee ee be be Be he he he Pe ee be Pe Pe = he fm bh Fh Fo ah Pe he Fo pe 


et bb bb 0 bb bb bb bee 


oo 
@o 
ne 


ec 
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000060 
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DO 


053640 


10-JAN-78 


12:16 


PAGE 211 
UBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


$0820: BOyREG 


STNPWR: 


RETURN 


Fh odd a 


Riel 
Hise 


TNPWRS2 , RS 
Ru), RL 
RS),Re 


;;THE FIRST ADDRESS OF ASCIZ 
!iIS ON THE STACK 


HARSH Bata, por WTER 


SEQ 0489 


SE@ 0210 


LC Tae abel Aeede™™ STO 


Bd Red oS BRN“ 
+ SPR act TEN POWER 
;;BR_IF TEN POWER TO LARGE 


??ADD 1 TO PARTIAL 
STORE SUBTRACTED VALUE 


1 MOMNGE PARTIAL TO ASCII 
att ae a 
; ; DONE? 


;8R_IF NO 
: TERMINATOR 
j RESTORE REGISTERS 


ssi. 
;;1.0E&08 
;;1.0&07 
;;1.0E&06 
3;;1.0€05 
3:;1.0E04 
;;1.0€03 
;;1.0&02 
;;1.0E01 
;;1.0€00 


SBBTYL’ ‘Pe NUMERICAL AaSCIZ STRING SUPPRESS LEADING ZEROS” 


5 p MMMM RARER EERE EEE RE ERE REE SERRE EELS 
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CZREMD.P11 


SEe2 


39 
=8 


2 
ate 
£59 


PEPE 


oO 
= 
Ww 
Ni 


tatatatal 
WW 

a 
zn 


64 


no 


ee ee ee ee ee ee es ee ee ee ee ae ee ee ee ae Be Be ee ee be he be pe 
i 
DOO LO Oud VO LOU OD VOU wh O DB Ue eee 


a ae ae ee Be be ae Fe be ae Be ae Be ae ee ae be es be Bn ae be Be be be ne ae fe ee ee ae ne ee ne eae ne ee ee ne nn ee ee an eee ee ee see ne 


ee ee ae te be ee be ae be he Bee ae as Be be be Be Bs be ae pe pe ae pe es ee Pe Pe = bn Pe be ee Pe bo Pe ee 


4 
OS4O46 
oS4050 


££ 
-O 
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053766 


ee 
& 
8 


O00-—- 


MACY11 30A(10S2) 


os4ee21 


oS42e21 
OS4ee3 
054220 


10-JAN-78 12:16 PAGE ele 
TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


;*THIS ROUTINE ‘ USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
; LEADING NUMBERS. 
+ MOV #NUMADR,-(SP) ;;FIRST ADDRESS OF ASCIZ STRING 
$x JSR PC, J8#SSUPRS 
SSUPRS: MOV RO,-(SP) ;;SAVE RO 
MOV 4(SP),RO :;PICKUP THE POINTER 
1S: TSTB (RO) : : TERMINATEOR? 
BEQ 2s ::BR if YES Hi 
CMPB #’0, (RO)+ ::IS THIS AN ASCII “0” ? 
25 BEG id 5 OR dup BY 1" 
MOV RO, 3$ OMe FOR TYPING 
TYPE ::G0 TYPE 
3S: .WORD O 33 i POINTER GOES HERE 
(SP)+,RO 33 
(SP+, (SP) j ;RESTORE THE STACK 


RTS RE 
.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


fp MM MEE MEME HE MEME HE HEHE HE HE HE HE HE HE HE EE EERE REAR RAR RARE REL RRE RRL EKE 
jATHIS ROUTIN 38 USED 0 CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
j #STYPOS---ENTER HORE TO CE TUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


NUM, -(SP) 


el MOV ; 

ty TYPO CALL FOR TYPEOUT 

:% BYTE ON :!N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
+ we. H3M=1 OR O YPE LEADING ZEROS 

3% + ee PPRESS LEADING ZEROS 

-& 

j #STYPON-=—-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
?xCALL: 

2 ” MOV NUM, -(SP) ::NUMBER TO BE TYPED 

3% TYPON , CALL FOR TYPEOUT 


+ i 
j ¥STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


x MOV NUM, -(SP) ::NUMBER TO BE TYPED 
+ TYPOC ::CALL FOR TYPEOUT 
STYPOS: MOV a(SP),-(SP) ::PICKUP THE MODE 
MOVB 1(5P); SOF ILL >: LOAD ZERO FILL SWITCH 
MOVB (SP)+'SOMODE+1 3; OF DIGITS TO TYPE 
BOD #2, (SP) ?:ADJUST RETURN ADDRESS 
TYPOC: MO #1 ILL ;;SET THE ZERO FILL SWITCH 
hata NOB 35° SOMODE+1 >:SET FOR SIX(6) DIGITS 
STYPON: MOVB #5; SOCNT ::SET THE ITERATION COUNT 
MOV R3,-(SP) 3;SAVE R3 
MOV RY’ -(SP) ::SAVE RY 
MOV RS, -(S5P) ::SAVE RS 


SEQ 0490 
SEQ 0211 
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ZR6MD.P11 10-JAN-78 11:48 BINARY TO OCTAL (ASCII) AND TYPE SEQ O212 
11142 4OoS2 113704 oS4223 MOVB SOMODE+1,R4 ;;GET THE NUMBER OF DIGITS TO TYPE 
11143 4 4 NEG RY 
11144 WEB Be 7B4 ooo0006 ADD #6,R4 ;;SUBTRACT_IT FOR MAX. ALLOWED 
1114S 4 110437 OS4222 MOVB R4’ SOMODE ::SAVE IT FOR USE 
Hie fees Alec Eases move EMER RED RSaTP fe NDuput gute 
tis 4100 ; CLR R3 ? ?:CLEAR THE OUTPUT WORD 
11198 41 1 1S: ROL RS ROTATE I I 
tite i 1 2s: ROL RS ?:FORM THIS DIGIT 
111s 411 1 ROL RS 
ilies alle 18g ; Roy ORE, RB 
006 : R 3’ ::GET LSB OF THIS DIGIT 
11186 4138 1 193 os4222 - pecs SOMODE i; TYPE THIS DIGIT? 
iitee 4i5e Naan 177770 BIC #177770,R3 ?:GET RID OF JUNK 
11159 pe4tss Bdi BNE ug >: TEST FOR 3 
11160 134 005704 Tot R j | SUPPRESS HIS 0? 
ities ae p83 4S: INC DON’T LEB pRESS ANYMORE 0’S 
11163 054142 052703 000 BIS #’'0,R3 ?:MAKE THIS DIGIT ASCII 
11164 41 000 SS: BIS #’ > R3 : ? MAK IL TF NOT ALREADY 
11165 Peytes O78 597 ett MOVB R3,8$ ;;SAVE F ING 
11166 054156 1049401 OS54216 TYPE B$ >3G0 THIS DIGIT 
11167 41 105337 oS42e20 7S DECB $OCNT ?? COUNT 1 
11168 41 47 T 2s ::BR IF MORE TO DO 
11169 41 O2 Bet 65 ::BR IF 
11170 172 o0S204 INC Rd j FINSURE LAST DIGIT ISN'T A BLANK 
117 ae teeoe 6S: MOV (8p) 4, RS } ;RESTORE 
tilza beusne Biseos Noy «cepa RS HIRESTORE fa 
iiss 4204 Bt 666 oo0002 ocOo0004 MOV 2(SP)>4(SP) HE SFack FOR RETURNING 
11176 Osuel2 BiSete nov (SP)+° (SP) — 
11153 pest ooops 8S: . BYTE t STonaae F ASCII DIGIT 
11138 Beusts 000 “BYT : 5; TERMINAT FOR TYPE ROUTINE 
11180 O54220 00 SOCNT: “BYTE ?S0CTAL DIGIT COUNTE 
tite ese ooobbo SOMObE: “HORD 0 Si AEMBER OF Bralie TO TYPE 
1118s .SBTTL CONVERT BINARY TO pecimal SND’? ROUSINE 
1 
11185 © > MMMM ME ME ME ME ME HEHEHE HE HE HE EE EE EAA RR RARER MEEKER ENE 
H USED TO CHANGE A '5-BIT BI R TO A S-DIGIT 
He RAaeD HEELS (OED URMTRC OGLE By ORTELE SES MEE, 
itige t SBEE ORE tre FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
11130 j XREPLACED WITH SPACES. 
4 : -(SP) ;;PUT_THE BINARY NUMBER ON THE STACK 
11133 iS TOPOS —_— :?G0 TO THE ROUTINE 
111 
11195 os4224 STYPDS: 
11196 054224 o10046 MOV RO, -(SP) ;;PUSH RO ON STACK 
11197 OS4226 010146 MOV R1;-(SP) ::PUSH R1 ON STACK 


} 
| 
| 
i 





Ol 
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CZR6MD.P11 10-JAN-78 11:48 NVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0213 
| 
111 4 46 MOV Re, -(SP) ::PUSH R2 ON STACK 
11133 Gedese BiG Roy Ras-(3e) Bust BS ON Stack | 
Heh Gavese BlEcGe 960808 ROY SGCERD aS”? HEBEY Fhe MNBUT ange SO 
11304 pe4se0 40S Ore ; he j HBR IF ANPUT Is SOMBER POS 
11306 3 605003 a ow ae ae ie 3DOKE THE BSC Lt OST Ie. 
1120 4 7 4440 ; MOV #$DBLK,R3 ::SETUP THE OUTPUT POINTER 
11608 Ose 16703 88 - MOvB #’ ,(R3)+ jiSET THE FIRST CHARACTER TO A BLANK 
11210 054274 016001 054430 ; MOV S$OTBL(RO),R1 ::GET THE CONSTANT 
181g Ge44300 108 3S: SUB R1,RS j ;EORM_ THIS BCD DIGIT 
11213 054304 o0S20e INC Re INCREASE SHE SCD DIGIT BY 1 
11si¢ Et 060105 4$: ADD R1,RS ;;AODD BACK THE CONSTANT 
11216 054312 005702 TST ::CHECK IF BCD DIGIT=0 
11217 4314 O01 BNE >:FALL THROUGH IF O 
it i 4 i is TsTe (SP) baat DOING LEADING 0’S? 
11 106316 5S: ASLB (SP) >3MSD? 
11553 Beusse it g00001 177777 Bova «= PeSP).-1(R3) ES VESUOSEY THE SIGN 
11823 esa oee702 000060 6S: BIS #’0,Re >;MAKE THE BC Bietr ASCII 
lle 4 000040 7§: BIS #’ | Ro He IT A SPACE IF NOT ALREADY A DIGIT 
1l2es 4344 110223 MOVB Re tR3)+ : PUT THIS CHARACT R IN THE OUTPUT BUFFER 
1ieee ub 05760 TST (RO)+ 7; JUST I MENT 
ile 4 000010 CMP RO, #10 ?:CHECK THE TABLE INDEX 
Higee Deis! Beas BT 1168 98 ete ober 
11539 ater SASSER BR. eer GET THe LSD. ASC 
1123¢ Besse 105788 8S: isTB (SP)+ jFWAS THE LSD THE First NON-ZERO? 
11234 4 116663 177777 177776 MOV cALSP)»-2¢R) i YES->SET THE SIGN FOR TYPING 
lle 4 0501 9S: CLR (R3) :? THE TERMINATOR 
11236 44 12605 MOV (SP)+,RS *:POP STACK INTO RS 
11237 O544 012603 MOV (SP)+°R3 ::POP STACK INTO R3 
11539 pSa4 O1s601 MOY «CSP 3a°RT iE Op STACK INTO Ai 
11240 ea 26 MOV (5P)+’RO ::POP STACK _INTO RO 
11241 44) Toads 1 os4440 TYPE $DBLK >} NOW PPE THE NUMBER 
11le42 OS4416 016666 O00002 ooDD004 MOV 2(SP),4(SP) ::ADJUST THE STACK 
11243 0544, 012616 MOV (SP)+) (SP) 
iidye Beqs Sue soTa.: ‘0000 — 
11246 054432 001750 “4900. ° 
11247 054434 000144 100 
11248 36 o0001e , 
11249 O54440 oO00004 SDBLK: -BLKW 4 
1iee6 .SBTTL ERROR HANDLER ROUTINE 
l1iese 5p RRR EL RAR R ERE R EERE EEE ER RA LEER REL LARS LE REEL ERE ES 
11253 :&THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
| 
| 
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CZR6M0.P11 10-JAN-78 11:48 ERROR HANDLER ROUTINE . SEQ 0214 


ph THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


~ 
~ 
fu 
uw 
<£ 


11255 0 TO TYPERR ON 
11256 ne SWITCH Ort ae S PROVIDED BY THIS ROUTINE ARE: 

11258 f Sui 31 TNIeST Fraoe TYPEOUTS 

11528 : euibe=t Sh RRR 

-11261 > *#CALL 

liebe % ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 

11264 os44sS0 SERROR: 

Lise pees nya 001103 7§: ince <a Bon THE, FRROR FL FLA ote rhe 
11262 es 13777 001108 124456 Rov spiro: SDISPLAY ; i 4 TEST NUMBER AND ERROR FLAG 
11269 pe 2 bor4 EQ 1 ii 

11870 4474 «1 1 001310 TYPE SBELL i RING 

11553 Boreas Beitt as INC SERTTE appc SOT ERROR INSTRUCTION 
11553 Deuce 165735 eric potiiS aOvB 35 Be C STTEMB THE ERROR ITEM CODE 
11875 Beubos 632777 bSda00 124406 BIT 8 tine adn fd TYPE oof TF CEs 

11277 07 TSR PC .TYPERR :a6! Fo’ USER RUT RROR ROUTINE 

it 38 weg 104401 i131 tor YPE , SCRLF 

11280 os4s4y4 122737 000001 001340 7 cNeB #APTENV, SENV RUNNING IN APT MODE 

11583 2g 113737 001114 os4S66 MOVB SITEMB, 21S Haiti NUMBER AS TERROR NUMBER 
11283 004737 055430 a J Re PC, , SATYS :;REPORT FAT RROR T 

11285 4 000 ; “BYTE OG 

11286 Os4570 900777 aaa Bes: BR ces ; ;APT ERROR LOOP 

lisse faxes foeees Ot hn Hay Oy Baaaa® 

11290 O54 0 081408 001000 124330 3S: BIT #Q1TO9, SHR #HCGOe On ERROR SWITCH SET? 

11543 Oe¥ele 013716 001110 MOV SLPERR, (SP) FUDGE RETURN FOR LOOPING 

11233 OS4618 v4 001306 — 4S: Tot SESCAPE Hes FOR AN ESCAPE ADDRESS 
1153 weed 013716 001306 “a MOV SESCAPE, (SP) :FUDGE RETURN ADDRESS FOR ESCAPE 
11297 054630 022737 oO2S5534 oDD04e : CMP #SENDAD, d842 sACT-11 ALITO-ACCEPT? 

11298 054636 001001 BNE 6S : {BRANCH IF NO 

11299 OS4640 000000 ae HALT YES 

11301 4642 oo00002 ; RTI ; ; RETURN 

1130¢ .SBTTL TTY INPUT ROUTINE 

11304 = KEKE KEK REE RRA KARE ER RSRAKA KARAS RERKRKAKRERRA RAHA RERARHHARES 
11305 ‘tNABL LSB 

11306 

11397 .DSABL LSB 

11309 
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CZREMD.P11 10-JAN-78 11:48 TTY INPUT ROUTINE SEQ 0215 

11310 ‘3 KEKEKRERREKKEKKE REELS KKA RE REREAA REARS KAKA AAAAARARARARKAKRAREAAKER 

11311 j THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

11313 iH ” RDCHR ;; INPUT A SINGLE CHARACTER FROM THE TTY 

11314 : RETURN HERE ?: CHARACTER IS ON THE STACK 

11315 © i *:WITH PARITY BIT STRIPPED OFF 

11317 ; 

11318 OSY644 011646 SROCHR: MOV (SP) ,-(SP) ;;PUSH DOWN THE PC 

11319 45 016666 oo0004 ooDD0002 MOV 4(SP},2(SP) ::SAVE THE PS 

11320 054654 105777 124264 1S: TSTB a$TKS ::WAIT FOR 

11321 100375 BPL 1$ ?3A CHARACTER 

11322 Oe4ebe 117766 124260 oo00004 MOVB aSTKB,4(SP) :READ THE TTY 

11323 OB 0427 77600 oo0004 BIC #4C<177> 4(SP) ::GET RID OF JUNK IF ANY 

ll 76 O266. boooo4 000023 CMP 4(SP), #23 *:IS IT A CONTROL-S 

1132S 054704 001013 BNE 3$ ?:BRANCH IF NO 

aes GER iBatre tes oo a LB Ggte PHO aGcke 

11328 4714 11774 124226 MOVB aSTKB,-(SP) ?:GET CHARACTER 

11329 4 042716 177600 B #tC17?, (SP) ::MAKE IT 7-BIT ASCII 

11330 47 e728 21 CM (SP)+, bel 3315 iT A CONTROL-Q? 

11331 4730 Ses BNE es 5 i1E NOT DISCARD IT 

11333 i734 Gebb27 oo00004 oo0140 3S: cnP WcSP), #140 iTs tT" OBPER case? 

11338 a7a4 Ge 000004 000175 CHP 4CSP), #175 iTS IT A SPECIAL CHAR? 

11338 O547e9 Boones CCCCHG =G00004 us 1) Bee paca ee AT erec ge 

11339 054764 052536 oos015 000 SCNTLU: .ASCIZ /tU/<15><12> ::CONTROL “U" 

11340 054771 136 006507 OO0012 SCNTLG: :ASCIZ /tG/<15><le> ::CONTROL “G" 

11341 g54778 OO5015 053523 O20l2e S$MSWR: -ASCIZ <15><12>/SWR = / 

11343 055007 O40 047040 OS3SOS SMNEW: .ASCIZ / NEW = / 

11344 O55014 036440 O00040 

1134S 

11346 

11347 

11348 .SBTTL POWER DOWN AND UP ROUTINES 

11350 -POWER DOWN ROUTINE 

11381 gss020 012737 osS032 o00024 §$PWRON: MOV #SPWRUP , PHRVEC ; SET VECTOR FOR POWER UP 

11353 peepse 000776 BR .-2 , 

11355 :POWER UP ROUTINE 

11356 055032 005037 055104 $PWRUP: CLR $PWRCT ;WAIT LOOP FOR TTY TO COME UP 

11357 08 36 005237 055104 4S: INC SPURCT 

11359 05 p01325 osso20 oo0024 MOV #SPWRON,PWRYEC ;SET VECTOR FOR POWER DOWN 

11360 O550S2 012737 O00340 o00026 MOV #PR7,PWRVEC+2  }RE-ESTABLISH POWER AND TRAP PRIORITIES 

11361 08 012737 000340 o00036 MOV #PR7| TRAPVEC+2 

11362 5066 0127 001100 MOV #STACK, SP ;RE-INITIALIZE THE STACK 

11363 055072 104401 055106 TYPE , PWRMSG ‘TYPE “POWER FAILED” 

11364 055076 O00005 RESET :CLEAR THE UNIBUS 

11365 055100 000177 124002 IMP QSLPADR :RESTART THE CURRENT TEST 


JOl 
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CZREMD.P11 10-JAN-78 11:48 POWER DOWN AND UP ROUTINES SEQ 0216 
11366 05510% oo0000 S$PWRCT: .WORD O 
11367 055106 O0S01S O47S20 O42S527 PWRMSG: .ASCIZ <15><12>/POWER FAILED/<15><12> 
11368 055114 Oe0le2 O40506 O46111 
11369 OS5122 o4210S o0S5015 baa 
11370 055130 . EVEN 
11371 
11395 
iiase ii*SSOpe1 = INTERNAL SCOPE ON ERROR ROUTINE 
11376 ? ¥CALLED BY “SCOPER™ 
11377 - RELKKELKRERERERE EKER ERKSLRE AREAS RRAARERERLKEARARAERAKKKRAR ERE KKHKES 
11378 055130 105737 001103 bAOPEL: TST8 SERFLG SEE IF a AN ERROR HAS OCCURRED 
11380 055136 O3e777 001000 123774 BIT #81T9, ISWR Bee IF LOOP ON ERROR DESIRED 
11382 055146 013716 001110 MOV SLPERR, (SP) SET ERROR LOOP ADDRESS ON STACK 
11383 0551Se o0000e 6S: RTI + RETURN 
11385 
11386 
11387 .SBTTL SCOPE HANDLER ROUTINE 
11390 :LTHIS ROUTINE CONTROLS THE COOPING OF SUBTESTS. IT WILL INCREMENT 
11392 SO LOD TE cea Neer gaa; INTO orsPrArcicroay 
11393 j RTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
11394 > *SW14=1 LOOP ON TES 
11395 >*SWii=1 SNMIBTT ITERATIONS 
11396 : *SWO9=1 LOOP ON ERRO: 
11397 > #CALL 
11398 2 x SCOPE ; ;SCOPE=IOT 
11400 os5154 SSCOPE: 
Hage Geeleg Bpiagy 002904 ORIN ERE UIE LE RRLLO ESR ry as 
11403 055162 032777 o40000 123750 1S: BIT aBITIA, , ISWR 3 sLOOP oA PRESENT TEST? 
11404 055176 001101 BNE SOVE: 2: YES IF SW14=1 
1140S -aueeeSTART OF CODE FOR THE XOR fESTERSeeee 
11408 055172 oo00416 $xTSTR: BR 6$ i726 RUNNING On THE ®XOR™ TESTER CHANGE 
11408 055174 013746 oo00004 MOV QSERRVEC,-(SP) 335A ie CONT: NTS OF THE ERROR VECTOR 
11408 g55200 O1e73? osseed oooo04 mov ass DSERRVEC 33 ET FOR Ton soe” 
ligie oeesle O13e37 aooads BR svn SUERAVEC 5 1055T ORE THE peeresyeor™ 
11413 gsseeg 022626 Ss: CMP (SP) ;;CLEAR LEAR THE St K AFTER_A A TIME OUT 
11414 05522 2637 OO0004 MOV (eP}s" * SBERRVEC ik TORE THE ER ERROR VECTOR 
1141S 055226 0413 BR 75 PRESENT TEST 
11416 055230 6$:;##e8HEND OF CODE FOR THE XOR eo oceans 
11417 3230 105737 001103 2s: TSTB SERF LG 5 HAS AN. ERROR OCCURRED? 
11413 055636 103732 001115 001103 cnPe SERMAX,SERFLG ;;MAX. ERRORS FOR THIS TEST OCCURRED? 
11421 OSS2e4%6 032777 OO01000 123664 BIT #B8ITO9, ISWR ::LOOP ON ERROR? 
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CZR6MD.P 10-JAN-78 11:48 SCOPE HANDLER ROUTINE ~ SEQ 0217 
11422 oOSS5254 001404 BEQ 4g ;BR_IF_NO 
1i4e3 Oe5256 1 732 001110 001106 75: MOV SLPERR, SLPADR tiseT LOOP ADDRESS TO LAST SCOPE 
11425 fe 1 43 001103 4S: CLRB SERFLG ;;ZERO THE ERROR FLAG 
tise) Geeere Geos OO oat EGER TY SREPEE, OF ZGRATIONS TO nexe 
1ies Oe6 004000 123632 3S: BIT aBITLI, INHIBIT ITERAT IONS? 
11430 Os 1 bea? 001104 INC ICNT 33 INCREMENT ITERATION COUNT 
11431 08 4 3 001304 001104 che TIMES, , SICNT iichec K THE a BTTON RE Fou! TONS MADE 
114 os 127 0001 001104 1S: MOV #1, $ICNT He eee, TETERAT TION COUNTER 
et pee3s3 pistas ery 001304 MOV SMXCNT, STIMES eS a3 ites IONS TO DO 
11435 S340 105237 001102 SSVLAD: INCB STSTNM’ COUNT Test 
11436 5344 113732 001102 001324 MOVB STSTNM TESTN ::SET Ti NUMBERS N APT MAILBOX 
11437 5352 011637 001106 MOV (SP), SLPAD ;;SAVE SCOPE LOOP Th APT 
11438 055356 011637 001110 MOV (SP) St PERR ::SAVE ERROR LOOP ADDRESS 
11439 babe 005037 001306 CLR SESCAPE ?:CLEAR THE ESCAPE FROM ERROR ADDRESS 
11440 O55 112737 000001 001115 MOVB #1, SERMAX i ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
11441 055374 013777 001102 123540 SOVER: MOV STSTNM, JDISPLAY  Pober Re TEST RURBER 
ii4gs Deesoe pogons P1106 a nee en 
11444 055410 003720 S$MXCNT: 2000. : > MAX. NURBER OF ITERATIONS 
1iais .SBTTL APT COMMUNICATIONS ROUTINE 
11447 es ee a an is POT ale ca 
11448 os5u18 112737 oo00001 ossess $ATY1: MOV #1,SFFLG PORT FATAL ERROR 
11483 geeyeo iie732 000001 055654 §$aTyY3: HOVE #1; SHFLG ti 70 TYPE A MESSAGE 
1146 230 112737 00001 oss6S6 SAY: MOVB #1,SFFLG ;;TO ONLY REPORT FATAL ERROR 
11453 OSS4 010046 * MoV RO, -(SP) ;PUSH RO ON STACK 
11454 O55 10146 MOV R1’-(5P) PUSH Ri ON STACK 
11455 ge54 108737 oSS654 rte SHFLG 5 SHOULD TYPE A MESSAGE? 
11452 gse4e0 ioe? 37 000001 001340 cHPB BAPTENV, SENV jj OPERATING UNDER APT? 
11459 O55460 130732 000100 001341 BITe BAPTSPOOL , SENVN 5} SHOULD SPOOL MESSAGES? 
tiger 2458 017600 oo0004 MOV 34(SP).RO ::GET MESSAGE ADOR. 
11462 5474 06 766 oooo92 oop0004 ADD #2,4(SP) BUMP RETURN ADDR 
11463 058 005732 001320 1S: rst SHSGTYPE FEE JF "BONE W LAST XMISSION? 
11465 O55 10 010037 001334 MOV RO, SMSGAD ::PUT ADDR IN MAILBOX 
live? DSeele ODlaze a he as a 
11468 O55 163700 001334 SUB SMSGAD, ,RO 5: SUB START OF MESSAGE 
-T146 ASR 0 ;3GE LNGTH IN WORDS 
11470 055 010037 001336 MOV RO, SMSGLGT is PUT LENGTH IN MAILBOX 
114271 Os553¢ o1e737 000004 001320 nov #4; SMSGTYPE ?TELL APT TO TAKE MSG. 
11473 Oe5b4e eed opo004 OSSS6E 3S: MOV D4(SP) 4S soul MSG ADDR IN JSR LINKAGE 
11474 55 062766 000002 000004 ADD #2,.4(SP) MP RETURN ADDRESS 
Liize Seeees Bharse Aczrce Hey Aevrope’S? HEM He” 
11477 OS5566 o00000 4G: . WORD ‘ 
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11478 055570 
ica Reee?y 105737 OSS6S6 
oe Ao ee 
HEL Beece Biicrs 
11483 055604 poz ae 001320 
11484 05561 4375 
1148S OS 1 ooo004 
HS Hee fare Biss 
He as iter teeees 
11480 Bs 4 4 7 peeees 
tues een aa 
Lites BBeees Bags 
11494 055654 000 
11495 055655 000 
11496 OSS656 000 
11497 OSS660 
11498 000200 
11499 000001 
11500 000100 
11501 000040 
11306 
11503 
11504 
11505 
11506 
11507 
11508 
11509 
11510 
11511 
11$le 
11513 
11514 
11515 
11318 
1151 
11318 S660 010046 
11519 OSS66e 010146 
Hest Geseee Bidets 
11See peeese 013746 odO0004 
11Se3 055674 013746 000006 
it3ed 0S5700 010600 
115 oss7! 
11259 0557 bi2e3 ooo006 
11Se8 055710 012701 003776 
11529 S714 105727 
11230 218 PBR E Oe 
11531 7. 10006 
11$32e O05S7ee 012737 OS6060 
11533 055730 005737 177572 
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APT COMMUNICATIONS ROUTINE 


ids: 


SEG 0497 
_ SEQ@ 0218 


TSTB SFFLG ;;SHOULD REPORT FATAL ERROR? 
BEQ 125 T: B 
rst $ NV RUNNING UNDER APT? 
11S: TST S$MSGTYPE 3 $F INISHED CAST MESSAGE? 
BNE 11$ +:IF NOT: WAIT 
MOV D4(SP),SFATAL ::GET ERROR § 
ADD #2,4(SP) ® BUMP RETURN ADDR. 
INC snéct Pe 3; TELL abt To TAKE ERROR 
eae ae ts /StEee (ou"e at 
CLRB srts bt LERR hess FLAG 
MOV (SP)+,R1 ::POP STACK INTO R1 
MOV (SP)+,RO ;3POP STACK INTO RO 
RTS PC ? RETURN 
SMFLG: .BYTE O tT MESSG. FLAG 
S$LFLG: .BYTE O He L 
SFFLG: - BYTE 0 ::FATAL FLAG 
APTSIZE=200 
PTENV=001 
APTSPOOL=100 
APTCSUP=040 
.SBTTL ROUTINE TO SIZE MEMORY 
s ERO panes spec nemii=n eminent ran 
JSR PC, SSIZE 
is crac ttt CONTAIN: 
is WITH K KTI1 OF -- LAST VIRTUAL ADDRESS OF THE LAST BANK 
Th SB -- LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY 
Eeate rete CONTAL N THE LAST NK AS A SAF 
; 
*BITO7 = 0 DON’ MEMO nA 
Hernis me! vor, SETUP_ BEE Ore THE SA or OPTION 
:% DETERMINED BY ROUTINE 
S$SIZE: MOV RO, -( ;;SAVE RO ON THE STACK 
MOV Rl; (SP) ::SAVE R1 ON THE STACK 
MOV Ge o-6 3;SAVE Re ON THE STACK 
MOV R3 i} BAVE RS ON THE STACK 
MOV RS.-(8P) -(SP) ;:SAVE PRESENT ERROR VECTOR PS & PC 
MOV D#RERRVEC+2, -(SP) 
MOV SP RQ -SAVE THE STACK POINTER 
;;SET THE ERRVEC PS TO THE present PS 
TRAP ;;PUSH @LD PSW PC ON STA 
MOV (SP)+, Q¥ERRVEC+2" -:SAVE THE PSW IN DeERRVECS2 
MOV #3776,R1 TuP ADDRES 
TSTB (PC)+’ it Ose MEMORY MANAGEMENT? 
SKT11: gifoRO 200 pipet TO nose MEMORY MANAGEMENT 
MOV #SKTNEX, IHERRVEC’;;SET FOR TIMEOUT 
TST a#SRO itn ARE YOU THERE? 
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oo0200 
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ROUTIN 


055716 


177740 


oooo04 
17eS16 


ooo004 


Ba6008 


—E TO SIZE MEMORY 


BIS #100000, SKT11 ; YES--SET KT11 KEY 


CLR (SP) *: INITIALIZE FOR “PAR” LOADING 

MOV ak TPARQ Re 33 35 OF EaRST “PAR” ; 

MOV #108 HH GHT “PAR. ’S” Bio EIGHT “PDR. ’S” 
1S: MOV #77406, -40(R2) ;;POR = 4K, UP, READ/WRITE 

MOV (SP), (R2)+ ;;LOAD_ “PAR” és 

ADD #2007 (SP) :;UPDATE FOR NEXT “PAR 

SOB R3,1$ >;LOOP UNTIL ALL EIGHT ARE LOADED 

MOV #177600,-(R2)  ;;SETUP KIPAR? FOR 17 

ase Secravec — S SCATEH TIMEOUT IE_NO Sho. 

MOV 53: Sasha + ENABL iy gyt MODE 

BR :: THIS -11 HAS A SR3 REGISTER 
2S: CMP (SP)+, (SP)+ ae AN OFF STACK--NO SR3 
35: INC r HH ON MANAGEMENT 

MOV #SKTOUT, JNERRVEC’::SET FOR TIME OUT 
4S: TST ae 4377 726 ;; TRAP ON NON-EX-MEM 

ADD ::MAKE A 1K ST 

cHP Sax tran (R2) 33 LAST ON ? 
SKTOUT: MOV (R2) Re pines TR UBSr TT ANK+1 

ar aesr SRO :; TURN OFF F RENORY MANAGEMENT 
KTNEX: BIC 8 S660, KT11 NON-EXISTENT 
CONE: Bay He ? Saenavec’ f; ott Fk IMEOUT 

CLR :ipt OB aN 
1S: ADD S500 R1 i TTRCREMENT BY 1K 

ADD #40,Re He 

TST CR :: TRAP TIME OUT 

CMP #177776,R1 : LAST 


BNE 1 ;;NO--TRY AGAIN 
SCROUT: SUB ne 


$SIZEX: SUB #40 ; K 
MOV RO, Sp + ORT ORE THE STACK 

MOV SP)+, DUERRVEC +2 ?;RESTORE ERROR VECTOR 

MOV (ep) AQ HERRV 

MOV a ;;LAST ADDRESS 

ry Fea Reo 

MOV ( Pst Re it RESTORE Re 

MOV (SP)+, RI > RESTORE R1 

Hoy cepi+, RO :;RESTORE RO 
S$LSTAD: .WORD 0 ;sCONTAINS THE LAST ADDRESS 
SLSTBK: 0 ‘CONTAINS THE LAST BANK 


WORD 
"SBTTL. SAVE AND RESTORE RO-RS ROUTINES 
5 ee ese eens 
i “C 


SAVREG 
t MUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


 xTOP---(+16) 
:% +2---(4+18) 
1% +4---R5 


SEQ 0498 
SEQ 0219 
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CZR6MD.P11 10-JAN-78 11:48 — AND RESTORE RO-RS ROUTINES SEQ O220 
11590 5% +6---RY 
11591 :% +8---R3 
1153¢ :¥4+10---Re 
1159 }#+12---R1 
11594 3 *+14---RO 
11595 
11596 056166 SSAVREG: 
11597 056166 010046 MOV RO, -(SP) ;;PUSH RO ON STACK 
11598 6170 010146 MOV R1,-(SP) +:PUSH R1 ON STACK 
115 17 10246 MOV Re’ -(SP) ;;PUSH Re ON STACK 
11600 056174 010346 MOV R3,-(5P) :?PUSH R3 ON STACK 
11601 056176 010446 MOV R4;-(5P) :PUSH R4Y ON STACK 
11 Osbe 010546 MOV RS'-(SP) ::PUSH RS ON STACK 
11 6202 O16646 oo00022 MOV 22tsP),- (SP) ;:SAVE PS OF MAIN FLOW 
11604 056206 016646 O00022 MOV 22(5P),-(SP) ::;SAVE PC OF MAIN FLOW 
11605 OS62ie 016646 o0002e MOV 22(5P)'-(SP) >;SAVE PS OF CALL 
11608 056216 016646 o000e2 MOV 22(5P),-(SP) ;;SAVE PC OF CALL 
1160 OS6222 o00002 RTI 
1125s ;#RESTORE RO-RS 
11610 ?*#CALL: 
11611 x RESREG 
1iei5 Bee SSy 012666 oo0022 SRESREG: (SP)+,22(SP) TORE PC OF CALL 
11614 056230 Ole666 O00022 MOV (SP)+; 22(SP) 33 STORE PS OF CALL 
11615 056234 Ol2666 o00022 MOV (SP)+,28(SP) j {RESTORE PC OF MAIN FLOW 
11616 O56240 012666 O00022 MOV (SP)+) 22(SP) > REST PS OF MAIN FLOW 
11617 4 012605 MOV (SP)+, RS ::POP STACK INTO RS 
11618 12604 MOV (§P)+°R4 : POP TACK NTO RY 
11615 012603 MOV (SP)+°R3 *:POP STACK INTO R3 
11620 12602 MOV (SP)+'Re *:POP STACK INTO Re 
11621 056254 012601 MOV (SP)+;R1 ::POP STACK INTO RI 
116ee boob 012600 MOV (SP)+;RO ?:POP STACK INTO 
11623 62 000002 RTI 
11624 .SBTTL TRAP DECODER 
11626 ee KKKKKEKLKKLA EAA KEKE KEKKRE KEELER ERLE RE KARL KEKM ELE EH EKER EK KK KEE KARR ES 
11627 :&THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
11628 :*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
11629 j KOF THE DE TRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
11631 P z 
116 6262 01004 STRAP: MOV RO,-(SP) ;;SAVE_RO 
11235 6264 016600 oo0002 MOV 2($P),RO ::GET TRAP ADDRESS 
11634 056270 005740 TST -(RD) :;BACKUP BY 
iiese Oeee74 besOn Bere age RO biBEC FIGN FOR INDEXING 
11637 056276 016000 oS6316 MOV STRPAD(RO),RO ;;INDEX TO TABLE 
11638 056302 00020 RTS RO ::GO TO ROUTINE 
11640 
Liat ;;THIS IS USE TO HANDLE THE “GETPRI™ MACRO 
11643 056304 011646 STRAP2: MOV (SP), -(SP) ;;MOVE THE PC DOWN 
11844 63 O166E6 000004 opD0002 MOV 4(SP5,2(SP) ::MOVE THE PSiW DOWN 
1164S 056314 900002 I : RESTORE THE PSW 
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-SBTTL TRAP TABLE 


;#THIS TABLE CONTAINS 
: xBY Fue BLE Abs INSTRUCTI 
; ROUTINE 
$TRPAD: ,WORD % Rape . 
ee 4 
Tpbc 3 :CALL=TYP: 
TYPOS };;CALL=TYPOS 
TYPON ;;CALL=T 
STYPDS ;;CALL=TYPDS 
CHR ;;CALL=RDCHR T 
VREG };CALL=SAVREG 
SRESREG ;;CALL=RESREG 
OPEl ;;CALL=SCOPER 
TSTMSG: .ASCIZ / TEST / 
2: .ASCIZ see / 
EMI: ASCIZ /UNIBLIS PAR ERR/ 
EM2: .ASCIZ /NON-EXIST MEM/ 
EM3: .ASCIZ /NON-EXIST DRV/ 
EM4: .ASCIZ /UNIT FIELD ERR/ 
EMS: .ASCIZ /SUBSYS TIMEOUT’ 
EMe: ASCIZ /D TO C PAR ERR’ 
EM7: .ASCIZ /C TO D PAR ERR’ 
EM10: ASCIZ /AC LOW 
EM11: ASCIZ /SPEED LOSS’ 
EM12: ASCIZ /ILL FUNCT/ 
EM13: ASCIZ /PGM ERR/ 
EM14: ASCIZ /NON-EXIST FUNCT/ 


OF aneraen ADDRESSES OF 


THE ROU 





TINES CALLED 


SAVE RO 
RESTORE RO-RS ROUTINE 
INTERNAL LOOP ON ERROR ROUTINE 
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TRAP TABLE 


EMIS: 
EM16: 
EM17: 


EmM20: 
EMe1: 
EMee: 
EM23: 


EM36: 


EM37: 


EM4O: 


-ASCIZ 
-ASCIZ 
-ASCIZ 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 


ZORV TYP ERR/ 
7FMT ERP 
/WRT LOCK ERR/ 


/DRV UNSAFE/ 
“SEEK INC/ 
/CYL OVRFLO/ 
7ILL CYL ADDR/ 


ZORV OFF TRK/ 
7ORV TIMING ERR/ 


7DATA LATE 
“CONT TIMEOQUT/ 


/OP INCOMP/ 
7HDR VRC ERR/ 


/DATA CHK ERR/ 


“WRT CHK ERR/ 
/DATA MISCOMPARE/ 


“NO DRV RESPONSE-UFE & NXD/ 


7ORV ERR WILL NOT CLEAR/ 


“DRY STATUS CHANGE WILL NOT CLEAR 


/ATT’N BUT NO STATUS CHANGE OR FAULT/ 


SEQ 0S01 
SEQ 0222 


D0e2 
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SEQ 0223 


SEQ OS02 
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124 


-ASCIZ /ATT’N BUT DRV NOT AVAIL/ 
-ASCIZ /ATT’N WHEN NOT EXPECTED/ 


EM41: 
EmM4e: 


na 


RRB RRRERRRERRRRRERK NR RERR ERE CREPE EEE Ee Rasa a ae 


SI ITS SRR SSSESSGSEGaaaa 
OE kd nk hd Od hd od ad Od md ad od ad ad od ad nd od nd ed nd ad ed ed dd ed ed dd ed dd dd dd ad ad ad ad ed ad nd Od dd ed dd od 


-ASCIZ /ZERR GATHERING DRV STATUS/ 


-ASCIZ /MULT DRV SEL/ 


-ASCIZ /HDR COMP ERR/ 


-ASCIZ /SUBSYS TIMEOUT’ 


-ASCIZ /ERR IN RECAL FOR RECOVERY/ 


-ASCIZ /DROPPING DRV, FATAL ERR/ 


EM61: 


-ASCIZ /CYL MISCOMP/ 


EMbe: 


EM63: 


-ASCIZ /CLEAR CONTR DID NOT CLEAR ERR/ 


-ASCIZ /NO ATT’N IN ATT'N REG/ 


EM64: 


-ASCIZ /UNSOLICITED ATT’N/ 


Em6éS: 


-ASCIZ /UNEXP DATA ERR/ 


EM66: 





-ASCIZ /ATT’N DID NOT RESET WITH CLEAR/ 
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“Pll 10-JAN-78 11:48 TRAP TABLE SEQ 0224 
os2111 | 


a 
85 


esi 051781 EM70: -ASCIZ /SUBSYS CLEAR DID NOT CLEAR DRV ATT’N/ 
11 7040 
th 1 14 
1 ics 
124 04 
101 peo10k EM71: -ASCIZ /DATA LATE WHEN READING HDR/ 
116 Oazoze 
ize 107 
tt gigs EM7e: -ASCIZ /CONTR ERR WHEN DRIVER SERV/ 
“See 
2Se3 


paseo EM73: -ASCIZ /DRV DET PAR ERR/ 


EM74: -ASCIZ /UNDEF ERR/ 
EM7S: -ASCIZ /MARKING THIS SECTOR BAD/ 


By 
ease 2 
Seat teiate 


EM76: -ASCIZ /BAD DATA VERIF’N WITH READ. ECC OF LAST RETRY IS:/ 





ee 
boi 
oO 


EM77: -ASCIZ /RETRY SUCCESSFUL/ 


= 
~~ 
tW 


EM100: .ASCIZ /RETRY UNSUCCESSFUL 


EM101: .ASCIZ /CANNOT FIND A VALID HEADER IN TRACK JUST READ/ 


9 
yi = 
R #252 6 


Se 
- be ee 
—Ui-oo 





Raves ee 
1 1e4 
eS2e Bis itt 000 
102 2101 OS144O EM102: .ASCIZ /BAD SECT ERR ON SECT NOT LISTED BAD/ 
041S0S O201e4 051105 


02 
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18 74 1 ad 440 
ig 1 rhea 10) 
1 58 4 Osi EmM1i04: .ASCIZ /TIMED-OUT ON SEEK/ 
1880 1 40 
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1 1440 EM10S: .ASCIZ /DRV SIEZED BY OTHER PORT/ 
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1 4124 
ts, 1117 
eee Oo40S24 O46440 EM106: .ASCIZ /DATA MISCMPR WHILE BAI SET/ 
28 1120 
830 451 2514 
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910 4 
rtf 7 
3 Eire (ol 
914 aoved O3040 EM114: .ASCIZ /KT11 FAILURE/ 
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CZREMD.P11 10-JAN-78 11:48 TRAP TABL SEQ 0229 
12094 Ob2620 oooo0s DFO1: .WORD 6 ; HEADER LINES 
12095 2 000 “BYTE O ;NUMBER OF COL FOR FIRST HOR 
1 062623 000 BYTE 0 SALL CHARACTERS OCTAL 
1s0a9 061156 [WORD OHI1O1 :SECOND HDR LINE 
12038 907 000 ‘BYTE 7,0 'NUM OF COL-ALL OCTAL 
i 1 sea ooo Bore grh0e 
1810} ese 061036 7WOR DH200 
lel 000 000 “BYTE 0,0 
12103 40 061350 [WORD OHe201 
1 108 42 007 000 ‘BYTE 7,0 
121 44 061053 [WORD DHSOO 
12108 46 000 000 ‘BYTE 0,0 
121 000007 DFO2: .WORD 7 
13108 pespes 000 000 ‘BYTE 0,0 . 
12110 Obeess 061156 “WORD OH101 
1 iid 0 000 ‘BYTE 7,0 
lell 2660 061245 “WORD DAIO2 
12113 oo2 000 BYTE 2,0 
12114 4 061036 ‘WORD OH200 
18118 besess oeissg | Ot “BORD ABO. 
lel1 72 007 000 ‘BYTE 
12118 2674 061437 "WORD DH202 
12119 062676 p02 000 "BYTE 
12120 062700 061454 “WORD OH203 
ielel 062702 010 000 ‘BYTE 10,0 
l2l23 062704 o00010 DFO3: .WORD 10 
12124 Obe? 000 000 ‘BYTE i) 
1515e aio 061 18 000 -BORe prioL 
15155 714 061245 "WORD DH102 
l2le8 062716 oo2 000 “BYTE 0 
1e1¢9 720 061036 - WORD 200 
{ i 061 aes pOR H201 
1gt3h Bess 339 000 “Bone : 0 
12133 062730 061104 one - WORD 01 :“THE FOLLOWING REG DATA MB INCORRECT” 
Ee Beret NS ong ae Beet 
12137 7’ 0614S4 “HOR DH203 
12138 74 010 000 *“BYT i0,0 
12140 744 900003 FO¥:  .WOR 
iste 746 000 000 eo “BORD 3 
1el¥e 750 061156 > WORD A101 
1214 0687 007 000 "BYTE 
12144 062754 061245 "WORD DH102 
12145 a2 000 ‘BYTE 2,0 
12147 062760 000007 DFOS: .WORD 7? ;O0PI, HVRC 
12148 062762 000 000 “BYTE 0,0 
12149 062764 061156 "WORD ODHI1O1 
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12150 062766 007 oo0 -BYTE 7,0 
tel 0627 061245 ‘WORD DA102 
lel 06277 O02 000 ‘BYTE 2,0 
11 061550 “WORD BHEO1 
12154 7 000 ‘BYTE 0 
15} e 061774 000 BORD F606 
15128 ace 061567 ‘WORD DAb02 
12158 963008 900 000 “BYTE 0 
lel 10 061771 [WORD DH606 
12160 063012 000 ‘BYTE 3, 
lel62 063014 000007 DFO7: .WORD 7 
12163 3016 ooo 000. ‘BYTE 0,0 
12164 061156 WORD DA1O01 
12165 007 000 BYTE 7,0 
12166 063024 061245 WO DH102 
12167 002 ooo BYT’ 2,0 
i5ie9 3 ee eS én yom ng 
15163 061652 "WORD DH6O041 
12171 063036 003 000 BYTE 3,0 
12176 061717 WORD DH6OS 
13153 obigsn BORD © DABOSI 
18175 peSoue 000 ‘BYTE 3,0 
12177 ooooo0s DF1O: . 5 
15i3a Beacee OBER ogo “BORE Bo 
12179 063054 061156 "WORD OHi01 
12180 063056 007 000 BYTE 7,0 
isi 6153 oo ave g0e 
15186 BeSpeg 061624 WORD DH6O4 
12184 063066 oe 1208 000 "BYTE OO 
18186 pe3ao8 003 000 ‘BYT 3,0 
12188 063074 o00004 DFll: .WORD 4Y 
12189 063076 000 000 ‘BYTE 0,0 
12190 063100 061624 ‘WORD DH604 
12191 063102 000 000 “BYTE 0,0 
121 063104 061652 “WORD DOH6O041 
lel 063106 003 000 "BYTE 3,0 
12194 063110 062037 "WORD OH701 
12196 063112 000 000 ‘BYTE 0,0 
18197 063114 000906 — DF 12: - WORD & ‘ 
isigg best ee 061156 7 WOR DH101 
12200 O63le2 007 000 ‘BYTE 7,0 
ieeOt Ob3124 Ob1e45 ‘WORD DHiO02 
1 126 a2 ooo ‘BYTE 2,0 
12203 063130 061036 [WORD OH200 
12204 31 000 000 "BYTE 0,0 
1220S 063134 061350 "WORD DH201 
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DF 13: 


DF 14: 


DF 1S: 


DF 16: 
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. WORD 
-BYTE 
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;FORMAT FOR 2ND LEVEL ERROR 
; IN HEADER COMPARE ERROR 

;AND 2ND LEVEL HEADER 
; VRC ERROR 


;FORMAT FOR @ND LEVEL ERROR 
;IN OPERATION INCOMPLETE ERROR 


SEQ O51 
SEQ 


231 


SEO 0511 
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12262 063306 000 000 .BYTE 0,0 
12263 063310 061350 WORD OH201 
12264 063312 000 -BYT 7,0 
1 14 061437 “WOR 2 
ig 02 000 ‘BYT 
1 062 W o2 
lee 2 000 000 ‘BYT 0 
13 0e1 10 000 “BOR a 
12271 061454 WO DH203 
lee? 063332 010 000 -BYTE 10,0 
12274 DF17: .WOR' 

13 7s Bessa ooorse «=—SOts«é “BME Bo 

1 061156 ‘WORD DH101 
12277 Ob334e m4 000 - BYTE 7 » 
13673 ane 000 [BYT 0 
12280 062303 - WOR DH711 
12281 3352 000 000 "BYTE 0,0 
12282 3354 062126 WORD DH702 
igeps 063356 oo2 000 BYTE 2,0 
12285 ooo002 DF20: WORD 

12286 Oes3e9 000 000 YTE g 0 
12287 063364 061306 WORD DH104 
Ey 002 ooo BYTE 2,0 

i 70 oo0002 DF21: .WORD 

le Beasre 000 000 “BYT Fi rh) 
isa 74 061734 . DH60S1 
1ee33 063376 003 000 ‘BYTE 3,0 
12295 oooo0s nas DF22: - WOR & . 
18697 0610B5 Wi Baloo 
le 000 000 "BYTE 0,0 
12299 10 O611 DH101 
12 le 000 BYT 7,0 
1g 14 06124 “WORD bAioe 
1 16 000 BYT 

12303 063420 061326 vee - WORD DH106 
1$3p¢ a 061596 BORD BAP ou 
12308 063426 oo2 000 BYTE 2,0 
12308 34 ooogge -_ DF23: Bye 5 
1331 34 4 pB24ee “WOR 4800 
toatl 34 001 000 ‘BYTE 1,0 
12313 063440 oD0001 DF24: .WORD 1 
12314 42 oo2 000 ‘BYTE 2,0 
1231 3444 900000 DF2S: .WORD O 
16316 3446 007 000 “BYTE 7,0 
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1231 
063450 oo0u0e OF2b:  .WORD 
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i 062 aa - WORD 70S 

i 062 WOR BA O4 

i 000 ‘BYTE 4, 

1 oo0005 DF31: .WORD 5 

1 D 000 "BYTE 0,0 

1 061156 - WORD DA101 

1 ? 000 "BYT 7,0 

i Ob 40 06124S “WORD DHIC2 

1 42 Bas 090 "BYTE 2,0 

12352 063544 062222 "WORD OH706 

15384 beseech oezses || (OO FORD DAZLO 

12355 pesees 003 000 BYTE 3,0 

18357 063554 RWBUF : ;READ/WRITE DATA BUF <AT LEAST 1536(DEC) WORDS> 
12359 3554 905015 D20040 O20040 NOTMSG: .ASCII <15><12>/ 44% NOTE *##/¢15><12><12> 
15307 pepoee pa7eie 

1e3be Oese7e Gieeen Osea) Oes0ee 

12364 i 4 paB040 .ASCII /ALL ORIVES TO BE TESTED MUST HAVE :/7<15><12><12> 
12365 4 123 

12366 10 920108 

1236 123 O4el 

12368 063636 4 051525 020124 

12369 44 i 04 : 035040 

12371 Spee 061 g20056 920101 ASCII 7/1. A 20 OR 22 SECTOR FORMATTED CARTRIDGE’<15><12> 
12372 063662 O30062 O47440 Oe0l22 

12373 063670 O31062 OS1440 041505 
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ASCII 72. HEADS MANUALLY LOADED/<15><12> 


pe 
UV 
a 
. 


ASCII 73. DESIRED PORT SELECTED/<15>< 12> 
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ASCII 7/4. WRITE LOCK DISABLED/<15>< 12> 
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EN 
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ASCII /5. DRIVE READY LIGHT ON/<15><12><1e> 


.ASCII /DRIVES NOT TO BE TESTED MUST HAVE BOTH/<15>< 12> 
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.ASCII /PORTS DE-SELECTED.7<15><12>< 12> 
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1 2523 -ASCII &PLEASE NOTE THAT THE DEFAULT VERSION OF READ/WRITE&<15>< 12> 
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630085 -ASCIZ /FOR SO HZ CPU OPERATION, PATCH LOC. 166 = 1.7¢15><12><12> 


- END 


SEQ-03doas | 
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214S 45SS 
6962 = 9228 9233 9316 9341 9429 9439 


5899* 7721% 7902 


7722 
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60S4* 
6072 7317 
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SEQ 0236 


9462 


| 


a 
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CZR6MD.P11 10-JAN-78 11:48 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0237 
APTCSU= 1 115018 
APTENV= eee pe34 {dasa 11280 11457 114998 
AP S 6415 64208 
APTSIz= 4478 8114988 
APTSPO= 1 10836 1145 115008 
ASKMDE 49008 4905 4306 4911 uge5 4931 4936 4953 4975 4999 5013 so24 5033 
49 S06 5077 5103 Sicb 5198 7351 
ASKTND 47828 8647 4786 4791 4815 4823 4829 484s 4856 486S 4890 
ASKT 4698 4781 
= 2104 211 
8990 116698 
ATESTN= gigs 2108 
AUNIT = 21 21ll 
AVECTI= siete «65148 = aya ss 
AVES TE= STO4 th 
AVGEG 439054 2387 
AVGSEK 43ee8 Ss 
A. RBNL 33408 6882% 6969% 6973% 6438% 98S27* eS44*x 8S5S3* 9204* 9460% 9473*% 947S* 10402 
a: 4 19S 9461% 10406 


<wW 
~_ 


9205* 
pases 6977% 6978 a 6991 6992 6998* 6999* 7000 7025* 7026* 7027 
702: 





g 
peed 
wo7ge GENE B81 BBY |= SHOE 609 
43938 
BAI = 30188 10571 
ei: sca 
BOSCHO Sea? asuy saga 
Bperct 43008 876 
BOSRCK 8e43 88068 9405 
petety padres Size 84319477 s«as028 
BITO = OOOOGL i9038 i 3008 3039 3056 3204 3348 3441 4639 4737 6151 7390. @119 
6136 isi 81909 8207 8261 8303 8860 8865 9087 10686 
BITOO = 000001 18938 1903 
BITO1 = 00002 1928 1302 == §710 
BTTHS = 10 1B3he «6 isphSsspe3)siS926 =~ 080 
BITOW = iea9e 1899 
BITOS = 0 1es68 1698 
BITO& = 000100 18878 1897 
BITO? = 000200 18868 1896 
BitbS = BDIGoD iface teen 
Biti = poDdoE 13538 «Abea «So Spse |= ASae 14383 = esses «S319 = 9091 
BITIO = 002000 gest Base Ses 3087 3082) GONE 3108 Sled 31383217388 4074 «9120 
BIT11 = 004000 ieee. 62997 «3028 «= «3048 «= «3067 «Ss «3083 «Ss «3097s«3110s«312S «=s«3139-S«s «3218 «= 4075s 114e8 
BITI2 = 010000 leeie 83 3057 +4«3049~Sfs«3084)=Ss«i309BSts«‘é LSB2SsBBeSt«<«éS«C«#9 Ss? Ss 
BIT13 = o20000 ispie 3000 3050 3085 3099 3113 3127 3141 3220 6862 6864 
BIT14 = o4O000 ese «Stat | spas |S Soe? «4668 )«= goes «3S 3100s «34 =s«3128 = 342) 322t ©9389 11403 
BITIS = 100000 16788 goer = 363 3084S «Shee «Ss sueB Sg?) alu?) seas) s3800S ss ?)~Ss«loStCeew 
BIT2 = 000004 isdis 3010 3037 3038 3058 3208 3350 3443 4066 6325 9095 


| 
S4YSS 7518 7705S 
7546 


CZR6M00 RK611/06 SS VERIF 1 
CZR6MD.P11 


BIT3 
BIT4 


BITS = 


Oo 

oO 

a 
nann 


CMSTRT 
CNTRDY 


06 
010071 


10-JAN-78 11:48 


TBO BOOWSS 
epee 


4 Maran 
Or 
SURE 


Be 
HK 


MACY11 30A(10S2) 
CROSS REFERENCE TABLE -- 


10-JAN-78 12:16 PAGE 240 


9735 


$065 
9493 


30893 
3060 


10S85 
9 


7063 


78408 


USER SYMBOLS 
3207 3351 
3061 3076 
3077 3091 
10483 
ae Be 
06S $379 
861 8888 
0&6 3080 
3095 3108 
10238 
950 
4702 4706 
4869 487 1% 
5055 5087 
6S95 7150 
7017 7485S 
gas 10 
3976 10S28 
5527 5583 


104 
7 164% 


8S16 


6321 


3132 3208 
3119 3133 
3120 3134 
3106 3121 
9609 
3107 3122 
3137 3214 
4713 724 
4894 4909 
130 137 
7169% 7170 
9611 10219 
10540 10596 
10636 10659 
5643 5676 


9102 
3352 


3209 
3210 
3135 
3136 
3387 


10S6S 


10684 


5726 


10649 


5867 


SEQ 0517 
SEQ 0238 


5949 
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oO 


CIREMD.P1l 10-JAN-78 11:48 CROSS REFERENCE TABLE -- USER SYMBOLS SEO 0239 
CNTRLC 012426 u3988 6466 = 7118 
CNTRLG 91 wages 64 $136 
CNTRL 1244 44008 6476 
CNTRLU O1 y4uols 7130 
CNT Sy uggse 6472 7124 
CNVTIM 1 S776, 7763 79408 : 
COE = 901000 30468 9323 9836 10002 10258 
CONSTR BO ube esdg 923 9521 
ona Re 1 & 88 1066 
CONERR 041460 341 $0838 
R 000015 1aige 4081 4O8Y 4367 4377 10880 10890 
ERMPHO BBSSob A6i35 (e8et 8878 pga 
R rhs sues Bai8 Basix 
CRT Seq E307, 7uade 
a re a eee 
| Tout sel $889 59 bo44 «BOB Stsi«éB Pw =P 
= 
EYLNDR BBSSi4 sgo$ 62688, 1262! cuce sueox Sees Sele Sb88 SE9S* S69  Sesgx S708 S710 
C.INIT 050570 556g gags’ onde. 
&: Athy Besaae 10549 18877 iD60E 10612 10615 10622 10626 10643 10665 10670 10680 10689 10702 
c. 1462 ibaes ~=tosate 
pee P6808 sec3_ «geese «411.9836 ~=««10002 «10238 
= 
DEKERR= BOdbeH bese Sais Sede 
peep = 999858 fees 2042 «4H 
= 
DoT = Go0400 H 
DERCNT 003121 34178 9350 9375 9420 9431 
Dest = 900010 30168 
DF’ TST 005670 36678 3587 4820 4839 4e42 4e63 ase 
DrGUES 911094 weige BONG 
ST 12532 1969 4238 
PFO «6 peeeed ies, «2198 ~—e1B1—s2187 29 «2337s 2807s Hs 20948 
bros 46 De SEED sigs «S417, Bat gig? g8S2 0 S337 5805 = 5823 *S3eg" axe §=9 2071 «Ss 2277 Ss 2283 
eeey 2P3g F301 23582381) Be? BS ha «ae? n93)aHS3 2505 BI] 
i7 5623.0 «3b2g~Ct«éw‘FSCCBSBG SBI) 108" 
OFO3 «062704 5199 Sa0s)0SsiBe77)0Ss «BBS 12am 
OFO4 «OBB 744 2331 121400 
FOS 760 2 313, 121478 
OFO? «OB 3014 319 131628 
OF10 063050 5325 «131778 
OF11 O63074 Sess «= «131888 
OFI2 063114 e373 879s es) 2acl§= 20972403, HOS. aS 121978 
OF13 OB 3144 5421 33 132108 
OF14 OB 3174 Sys? «1 Bab ae 
OFIS 63224 5439 «1 Be abe 
OFI6 063270 Syys = [Doeee 
OF17 063334 5ug3 [Be 748 
OF20 063360 5631 122858 
OF21 063370 5841 122908 


03 ! 
ESRENDSPL1 1O-JANL IO. 11: MACV AL RR OSS REFERENCE TABLE <= USER SYMBOCS aes 


10-JAN-78 11:48 RO E— TABLE -- 
OF 2e 063400 2637 122958 
DOF 23 ig en 2547 iSsise essg = 123088 | 
23 ae mit 8179% 68233% 123168 | 
1 a 
063504 2649 6664% 123358 
DF 31 06 03 163368 
| DH100 =: 0610 16 17 2179 2185 2191 2197 2203 2209 2215 2221 2227 2233 2239 
2ec4S sei 2257 e263 2269 2275 2281 2287 2293 ee33 2305 2311 2317 
2323 2 2335 coat soe3 2365 —t Sh aoe So, iar ~ 2407 
a a a ae 
DH101 061156 9006 119408 12097 12110 16163 lei4e)§ 12149 12164 12179 12199 le2le 12225 12238 
DH102 061245 ‘S517 17Sebe 15 Hee 15]37 15]44 12151 12166 12181 12201 12214 #le2e7 12240 
f 
PO en 
DH103 061263 2e6e9 119538 
DH104 Bei 308 he lees? = 12305 
DH10S 1023 119238 
DH106 061326 119608 12303 ‘ 
prin e138 119258 lel teti8 12129 «12203 «= lee4e)=—s 12261 
1 1350 119638 lel e116 =1le131 8612205 8 1lee44 = = 1leeb3 
DHe0e 38061437 119738 lell 1213S =lee46§ = 1eebS 
DHe03 1454 119768 leleO 12137 leeSe i1ee71 12321 
pies 3e5 1e0S4s8 lee07 
Oe 34 ti i i 133 12250 38612269 
BHEOS Dezase 120608 leeeO 1ee33 8 12267 
DHSO3 062414 120668 lee 
1320 119868 lel 12216 12229 
1784 119898 lel 
1 119948 lel 12183 12190 
DH6041 061652 8577 119988 12170 12185 12192 
DH604e2 061701 S283 1 ® 
061717 1 * 12172 
1 17 1 = lel isfe 
tag! ishise leisS leis 12218 38 12231 
DH701 062037 6147% 8178% 8232% 120208 12194 
DH702 062126 SBAZ 1 # leese 12332 
Bros Seslee TBE HER, sews 
DH70S DeSeDE 120398 12341 
706 O6222e2 120418 12352 
707 1 94 
310 ieeset ees 
062465 120 a8 12310 
I = 040000 30018 7788 10022 10694 
DISPLA 001142 20428 Y4H6Ee YH74e 11267*% 11441* 
TSPRE bon 12888 4474 
=1 0308 9343 9830 9960 9996 10236 
DLTFLG 00314 34348 
DB = 000040 30778 


a 
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DONE 003123 34198 8853% 98896 eg4¥ex 9084* 9198% 9535  9538% 
DOTIMN 003133 s4e78 4520% “Se7% 5731 $872 S954 6026 7646* 
DRA = 000001 30568 98eS 10608 
DRDY 0200 30658 
DRIV 011374 4e918 7453 
ORIVE 10 34908 4750% #Se1S* Seeex S223 S226 $301 6440 6890 6891 6936 6946 6976 
6990 6398 70eS 88s9s 8868 8878 8886 12077 
003137 34318 88S4* 9097 
DRNAVL= O1 40768 
DR 01131 4e818 8973 
| DROT = O00040 306e8 9333 
= 000010 30398 9273 
_ ORPORV= pose 32178 10470 
DRVCAL 316 S282 $3493 5743 $881 $963 6035 6121 6133 6136 6196 bele 6331 6889 
6971 7005S 7007 7019 7047 7452 7494 7Sel 7530 7772 80eS 8441 8480 
8483 8Se9 BS46 8734 88498 9474 9520 9530 9565S 9602 9604 
DRVOSC= 000040 32098 9441 9910 10 101 
DRVERS 003130 s4e4e 44862 Seeds 3 8970 8972% 348e% 
, OR = BpOpeo 32088 9436 9917 1011 10243 
DRVLS 3Se08 4640 4659 4671 4718 4726% 4738% 44741 4748 4760% 5227 
DOR = yee 30158 9819 9860 10011 10456 
DRVNO_ O11 4e908 $301%  5S30c# 
DRVPOT= 3e068 10018 10086 
= 000002 3e0S8 10018 1004S 10507 
DRV’ 8 7634 41308 san8 
DRV’ 134 $3 74498 
= 010000 3e198 9264 9848 10610 
_ORVTST 013732 4426 4603 46198 4624 4625 4626 4634 4691 4692 4784 4812 4828 48SS 
| 4904 4996 5021 S048 5076 S125 5197 7348 8430 
DRVUSE= 000001 32048 10470 
DRY 000200 30648 
OR.CLR= 000005 e9878 9898 10061 10103 10127 10241 
DR.SEL= 000001 Geese 10047 10362 10369 10376 10383 #10587 
ORO. 010134 41678 694 
, OSC = 040000 30698 
DOSWR_ = 177570 8248 1 
_OTBATI= 100000 eces 10470 # 10569 
' OTE = 010000 30498 8558 | 10238 
OTYE = 000040 30418 696 $301 10238 
DTYLST OO0S616 35318 4755% Se 
DT100 O6e504 2168 2174 2180 2186 2192 2198 2204 2210 2216 2222 2228 2234 2240 
2ec46 22 e258 2ecb4 2270 2276 2eSe 2288 ee34 2300 306 2e3le2 2318 
23 23 2336 2354 2360 2 2372 2378 2384 2 2396 e40e 2408 
2414 2420 e426 e432 2438 2444 e462 2474 2480 2486 249e 2498 2eso04 
Pat pay 155998 S28 2570 2576 esse 2588 ess4 2606 eble 2636 264e 
T102 O6eS22 120808 
Het eB, zone 
Te0de O6eS44 e618 120848 
T O06eSS0 120858 
T601 062570 sag es46 esse ess8 2564 2be4 # 120888 
rete S7 e46 120898 
UACES 010654 42278 3 , 
DULACS 003 308 24e 4431% 4436% 4495 4696 S3le 6328 6739 7065S 8856 


| a4 4424 
DUNPAS O2e5442 Sees 63908 


SEQ 0242 


SEQ 0S21 


SER SYMBOLS 


JO3 
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CROSS REFERENCE TABLE -- U 
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CZR6M0.P11 


@ 
Lh] 
wu 
oO 
“_ 
or 
cur 
o- 
ow 
Ow 
a 
aunt orm x 
= cq 
Mon Kum ™ 28) 
oor worn. i nw 
ownr et 4 — 
tt cal “4 
MBBBSSSSBSSSSSRTSKSSLSSVSSLLTSSAsSw*w*sVss*2a 2B Bw BBBweewaweww22 
ow 7ace TB ee oor Tr.oTn SEZ RO =MNO«~T OD TROUN ATK MP.-U00' wu 
On -—OFKRTWWD Dio por hoe ooo A TU MOMUTTNT NOOO T 
7% Fis LLllLlODOeeao OOOO 000A OR AARAARAARR Rast RARORARRORAT 
Tr LI tt tt tt ~ I 
hh HH tH tt Sos een Mion Ieee eon Reem om Kam hem con ben hen han! 
Poo BOTS VUOTTOWOWVOWVOTOUOUOT Se OT RT OQUaL 
Tr 
S88ion acter tits ons OD DD One RR RS Le ook =U ae DORA) 
Oo000o0'- thin htt th 658 cucudy: cucucy MMC OMOnarTT 
TrIOOT Craueucuruty cu qucururucucucurucucucunucucunurucunununucucununucununucuTuaucu 


OOETLTELTELTELC EET ELC LCE &ECLC&ELTCLCLELTCLCESTE 
anv eee 


=F eee BERR BSE SBS OUCS Oe oe eo RBRE ROSS 

8 BOB 88S RRzo00 ea 8 Ne My 

SIRG RIG RAR IER RIANA ARR AR ARE Rens ss NRG 
it an 


e 28680588545 ums non Onc 
= 
FY] 


unun 
oex 
r5ax a 
NOOO 
OwWwu 


EMel 
EMe. 
ENe 
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CZ2R6MD.P11 10-JAN-78 11:48 CROSS REFERENCE TABLE -- USER SYMBOLS SEG 0243 
EMG 056472 219% 116858 
EM60 057462 2448 117858 
EMb1 057514 SY 117908 
| Enbe 057544 2460 117948 
Nea bese p 5368 ou58 tiger : 
Enee pareie 5386 Sued 118058 
EME? 6 pevepe Sago Bue BL Te 
EM? 6s Best Sane ieee 
M70 7744 2406 2502 118178 
M71 ll 2508 118248 
M72 060044 2514 118298 
| EM73 060077 2520 «6118348 
EM74 117 2526 118378 
EM7S 0131 2532 118398 
_ EM76 060161 2538 «118448 
EN? Oedes 2544 2550 «6118538 
NTLCI O10346 41918 47682 
EQuALs O126i6 gigs | 72e0 
ERRCNT 003126 gees 4425%* 4602% 7044* 894S* 98947 8950 e9Sex 908S* 9199 9483* S9491* 9511 
ERRCOM 34638 9136% 9137*% 12077 
RRFRE 16 3 6883 es4e8 9461 
RRHDL 042164 3340 6435 6882 6973 8438 gss3 8560 91978 9460 9475 
RRLMT 003127 34238 9511 
RRVEC= 13068 44 yug4e 447Se 44B3*% 44Y484* 6659% 6660% 11408 11409* L1411*% 11414" 11522 
1152 11527% 115328 11544* 115499% 11558* 11568* 11569% 
R2ENT O42204 92018 9263 9371 9396 9480 
XPLAN 010500 42078 4899 
.CCLR= 1 3348 G 
RR= 001000 33578 10251 
cars 9000 33ee8 10067 #10108 10132 
.CONT O00 9087 9 3095 9102 9106 9110 9114 9117 9120 9123 9127%  9802« 
34 9903% Soi ae 9984* 10006* 1002e9* 1003S* 10067* 10108* 10132* 10177* 10229* 102SI« 
103908 10624% 10678*% 10686* 10699% 
E.OLT = ooo400 33568 9984 
E.DPAR= 002000 3358 9913 10390 
—E.1iLD= 000100 33558 10678 
E.MDS = 100000 33608 3802 10223 10624 
E.NOAT= 33498 1 
E.SCLR= OO0040 33538 
E-UATT= 90 33508 10035 
-UDAT= 000010 33518 40 10006 
E.UNLD= 020000 32208 1 10041 10116 10126 
FACTBS 011423 42968 8S 
FC z é 2278 48S S483 S498 5501 5505 5533 5536 5538 ss4e 5SS1 ssss 
5 594 6104 6106 6187 6290 6358 
FDTERM 033514 5971 77988 
FINADR 44 80628 8238 
FINCYL 00557 35118 8092x  s240 8265 8271 
FINMEM 037336 8619" 866 
FINSEC 00557 35138  s080* s242 8269 8273 
FINTRK 005576 35le8 8090% s241 8267 8272 


ESREND. 


RK611/0 
Pll 


O00000 

eae bas be ee ee 
VAN 
RRP 
Moo cH 


7774 


003101 


= 000300 


000020 
000100 


RIF 1 
8 11:48 


MACY DD AROSE REFERENCE TABLE 


ern 

10651# 
5171 
B4Se 


6114 


6189 
6107 


gecc® 
433 
11657 


84S6 
10648* 


106S4# 
7221% 


6892 


6298 
6297 


6617 
11658 


7224* 
94898 


9605 
9608 


10002 


5504 


77758 


5369 
6024 


77208 


4992 
8428 
9947 
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-- USER SYMBOLS 
7486 8=. 8072 
11659 11662 
7377 7392 
9517 
10238 
SS4O sS44 
9362 9387 
5395 S443 
6101 6184 
4994 4997 
g43S* 8444 
10033 10065 


8332 


11663 


7397 


5550 


10182 


5482 
6259 


S017 
a448 
10106 


gS21 8541 
11664 11665 
7404 

sss4 = S596 
10246 10534 
5530, 5586 
688e% 6935 
501 so2e 
8454 


10117 + +10130 


8646 


$S97 


10875 


S622 
6967 


Seel* 
10401# 


3612 


5601 


10641 


5646 
7450 


5311# 
1040S* 


se PB douy 


5602 


10708 


5679 
7484 


64634 
10409 
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CZR6MD.P11 10-JAN-78 11:48 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ O24S 
| 
i$ O28 6349 
I 744 353° # 6353 
I.AERR 047152 10059 10077 1008648 
I. ATTN 1eet 3 9857 r] 
16ST 9831 193138 101728 10244 10604 10669 
£21? 1 ecg Be 9940 103é€3%8 10593 
I.ORV 003102 33958 86884 10458 104S9 
- ERR a Ss 8 
.-ERRA 7 % 
- ERRC 712 acs sale 98878 10020 
}- Heh 45270 4501 5841 S850 7768 7787 97928 
I. ISRL 3074 33858 93806 9809 9812% 10183% 10480% 10634 
I.ISSU 047620 98393 9963 10048 10062 #&=«210104 10128 102148 
t-Aye 045550 9810 9827 9es4ea 
-RTRN 047520 9804 3675 g8Se2 9880 9892 9897 9900 ga44y 
9970 997 9982 9986 10008 4 10031 10102 
101 10110 10119 10lee2 10129 10134 101438 
t- star pene? 9 * § 1 103608 10614 
. STOR T= 10224 1 Yo 
KBDHDL 028700 ‘ihag pases 
KI = 1 3350 19448 poze 11508 11536 
od bed Se 17e34e 194S8 
KI = 172344 19468 
KIPARS= 12es06 19478 
KIPARY= 172350 19468 
KIPARS= 172352 19498 
He 1 4 13208 6847* 6865* 8135 8144*  s8206* 8214 
K = 17, 19Sl8 11552 
KIPORO= 172300 19338 
KIPDR1= 17en0e 19348 
KI = 172304 19358 
KIPDR3= 172306 19368 
K =] 19 “9378 
K =] 1 1 % 
K = 172314 19398 
K =1 16 19408 
KTERHD 026510 4503 SS 
LASTWC OO0S600 35148 083 8237% 
is 005734 35938 37% S260 S351 5375 S488 S491 ss4e 
55893 S94 5598 5603 6358 1 6365 
LCM1 017756 Se3S* S2ess* 53188 8368 
LOms Bi eeps esqae 7% 317% 32 
LCP1 7762 ex Se 3208 36 6345S 
LCVEC 3160 34Se8 4532 
LEV2ER= 000400 40728 9201 9256 9353 9359 9378 9384 
LF le 18178 4081 4084 4367 4377 10884 10890 
LIM1 iss33 43878 es 
LI 12347 43898 583 
LKS BG2130 paige set. 7530% 7611% 
(e)e) : e3 630 81108 
LODFLS 0150) 4668 4834 483948 
ODFPT 016244 4846 50S4 50598 
LODP14 O34412 6264 80398 


A -~ 
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LODSEC 
Lenny 
OWOC 


304 


605476 


ee 


16 


Borba tes 
Soounoneo 


=e 
. 
BzE8 


By 


— 

“I 

iru 
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ul 


= 
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6120 
9568 
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6195 


7978 


5788 


S789# 
6064 


4SO4# 
72738 


10-JAN-78 


6210 


4435 
10227 


7991 


7728 


826 
731% 


80018 
72eS 
5923 


6279 
8711 
6533# 


5914 
6067 
77308 
5990 
7915S 
$917 
6070 


4548 
i060e 


NU 
wo 
—-O 
fr 
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8023 

7382 7384 

5976 6038 

6282 6283 

871e 

6547% 6548% 
7828% 

7729% 7900 

4666 4844 

6046 77278 


7387 
7490 


6746 
6561 


S064 


7897 


7390 
7576 


6757 
6713 


6941 


7395 
8328 


6759 
6717 


7067 


7400 
8257 


6764 
6719 


8426 


7403 
8380 


6772 
6784 


SEQ 0525S 
SEQ 0246 


8518 








Cc RK611/06 SS VERIF 1 
Cc -Pll 10-JAN-78 11:48 
NM. F= C 1498 
nDPIn at 
MN. 1 8 
". 10911 
M. 109448 
M. 1 
: 
M. 10942 
M. 2 1468 
ee 31538 
M.I = 31488 
M.PAR = 100C 1478 
M.SECT= OOf 3ige8 
M.SER = 1518 
NCYL1 ooss2ee eae 
yL2 oe 
NED” = O10000 adeee 
eet Sia38 
NEWORV 7026 eH 
bes fos a 
Reicha BBB : 
NMTSTS= 1 35878 
NOCHK = 000400 3375 
Noch IS Et A 43078 
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ade 4 uy r} 
NOTALD 1074 a3378 
NOTHSG g224 5433 
NOT 147 9 
NTREDY 7675 41378 
NUL INP 15114 832 
NXDRIV 1 41348 
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OFFSET= 115 23668 
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ee 
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S4O# S41 S44e S54 S5S50% 5551 sSS4*  5SSSS 5557 5S8s* 5590 SS96# 
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5343 5367 $393 S441 5480 5528 5584 5620 S644 5677 $727 5868 
Bose 8033 6182 6257 
greta 10532 10573 10600 10618 10639 10662 10671 10705 
4656 
S446 10058 
ee. Bp 
* 9507 
4930 4935S 
50698 
123598 
4491 4494% 
6993 
48478 
6979 
5 5168 5208 6S96 7324 107368 
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58 9347 ge36 10002 10238 
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PART = O00000 17518 1764 1767 i770 i780 1792 1800 1806 1807 1970 972 1974 1976 
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3 8 3690 3695 40 4081 4306 4392 4431 4488 449i 451 4 
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pip . eens sees — 
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SE@ 0249 

7398 7397 7400 
104Se* 10711% 
10S94* 

8538* 8686* 9149 
6186 6211%  6311* 
a * 7489"  7517% 
g47ee 9519%  9564# 
0S30 1055S 10562 
963 9665 9887 
10Se7% 105e8% 10530% 
10587% 88 10590* 
10664 10683% 10684 
9611 612% 9977 
9343 9427 9893 
1 19652 

446% 449% S4S3# 

S648* 

$920 S96e# 968* 
6360% 636 6364% 
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B'pe. 000036 33305 Steg" §398" 2863 19933 ibioos iose7* 10608 
= 
P BFs = iaoeee 1Beee, 8628 8671 8672 9153 9401 9403 9590 9362S 3626 96ss 9661 
4 EPAT= O0006e2 4 : g358 g9gss% 10475 
P E s 35308 gcse 9159 9224 100S9% 10328% 
P.OFST= 31958 10517 
P.PRST= OOO0014 & Ss 36 9441 3 9451 9566 735% 9848* 9882 9910 9917 
* 109 ue 1 oo4S*# 10058" 10076% 10086* 10112 10116% 101265% 10138% 10243" 10395% 
1987 x 18 * 10531% 10532 10857 10563 10569 10573 00 10610% 10618 39 10662 
P.SECT= 000004 of oae 6109% 6118 6l2ex 6123 6127% 6129 6140 6164* 6165 6189% 6273% 6298 
6336% #6337 6349 7488% 8g01 *  g068 347 8523 8S32e% 8S33 8539* 
8549 8s 862 pecs* 9142 9598 9976 10Sle 10554 10656 
P.TRCK= 000005 31948 6105 6188% 619 6197 6198 6207% #6208 6214* 6215 6271% 6297% 6340 
aaa! Be3E. 6354% 7014% 7491% 8019 8026* 8027 ose 30 S19 
P.WC = goo0le 31998 6111% 6191% 62728 6299% 300* 7016% 7493 8388 8401 8477 8494 gSes* 
8679% 3°05 8742 9144 10SS2 
P.WCR = pooee 32318 154 10094* 10324 
= 2950 
Q.INIT= 32218 
RC = 1 3444s 
RCLREQ= 40758 9271 9276 9321 9326 9331 9336 9470 
RDALHDO= 000164 237388 93866 1064S 
RDCHR = Ang! 7113 116628 
RDCHRS 3 46 4690 4783 4827 48SY4 4903 4961 S047 5075 5124 5196 6582 
71078 72 7303 
RDDATA= 000121 88 6135 6323 7008 7489 8517 
RDGATE= 100000 30878 
RDHDO O44S22 9383 95888 
Seotoee 0001 29708 Sesl oF 7520 9603 9980 10661 
Rey AT= 014 23788 96 3h 9564 10581 
Y = 23938 10S. 10591 
RECAL = 000113 e96S58 5348 7006 8440 9472 10524 
RECODE OO0SS04 4e8e8 aint % A 7043% e4s 8735 8738 8816 8S24x 887S* 8943 8953 
% 1 * 3% 9254 eS6 9271 9276 9316 9321 9326 9331 9336* 
9341%  9349% 9353 9359 9374 9378 9384 9399* 9406 9409 9413% 9416% 9429* 
9430 % yap 9449 S4S4*% 9462 94--9% 9470 9476 9478* 9502 9S04* 9509 
9516 % oa 
REDBSF 300 85148 
REISSU 003140 34328 * 9099 
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REPLPK 007753 od 288 ee 3 
REPSUP 041704 Ss 66S 6960 7S5e5 7776 8182 8535 81 91348 9206 
RESREG= 104410 S761 5810 gas 6647 6704 6749 6830 416 4 7687 7809 7829 7879 
8006 8030 8034 8163 8244 8305 8403 8407 8484 gsos 8610 8635 
8633 87e1 8817 88 8930 9070 918s 9531 9580 9614 9673 11008 11060 
116648 
RESVEC= 1 1907 
ETANL 4324 9204 9473 953548 
RE TNML 2 644 8562 9205 95388 
REVR 11740 43388 6003 7911 
ie) 24 S747 58478 
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S219. 7041" 7042 8439 
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S.SPIN= 010000 30988 
S.SPLS= aye 31118 
¥ 2 1 38 
2: YPE= 4s 
‘ = 31288 « 
S.UNS = 31148 
S.VV = 100 30928 
S.WCLK= 31338 
S.WGAT= 100 31348 
org = 31108 
2: s sige . 
sADRAE ae 
ay 520 Sess 4aeg Sa? 
Se ppeses 36008 4927 5290 
23 754 36018 4927 S291 
T We 14 19088 
TCONH 3166 34568 7682 73940 
TCONLO 3164 34558 7684 7941 
TELDRV 14012 4628 46368 4693 4704 4759 
TIMER 3150 S772 7653 77038 7708 7761 
TiMeek le 5884 S304 S969 $973 6039 
TIMSKP 1513 43108 7645 
TKvES = 191S8 4496 4499 
Tee Roe 104S0 42038 4803 4848 
T 044352 5758 7777 9086 9253 95478 
TPVEC = poops; 19168 
TRACK 30 34988 
TRAPVE= 19148 cits ase 11361% 
TRKCHK 6203 621 80178 
TRKNLW 10771 4e4eR 4934 
T 6312 6316 6324 87318 
TRIVEC= 14 19038 
tere ye ates S203, S214 5738 S744% 
TSTLS 32488 4259 4819 4840 4862 7076 7200 
yarns 10244 41808 4781 
TST OS6342 8996 116678 
TST1 O20002 $313 339 
TST1O O2leeb Ss84 56168 
TSTll 021300 S620 S6408 
Tatig 051386 S644 6738 
TSTl 1626 S677 7238 
TST14 022440 S727 5736 See4e 
TST1S 022760 S868 S877 Ssss 5390S So468 
TST16 023316 5350 $959 5970 S974 60188 
Tete. 4 e0es e031 6040 6058 60958 
TST O2e42b2e 6039 61788 
TSTel O24S16 6182 S3 
TST3 1 2384 3898 
TST4 333 437% 
TSTs 020414 S44 S4768 
TST6 206 S48 SSe4s 
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U = 
UNLOAD= 000107 239638 10487 


TWOTOS= 002000 yo74s 9254 9568 
Rae bei i fy. Ge ne rer 
TYPDS = 104405 5329835 Ssi«éwYHO4 «=©6-s«7903—t—«7918~—Ss«d1:1 S98 
TYPE = 104401 o4s8 «= BSG? S35) 
4599s Ge2—(—(‘‘eCCY ye44 «YEH? 
4702 «44703—«s«s47B1Ssi‘<7B2si‘dSDY 4803 
ugsesY yB9S «48994901 «Ss: 4902 303 
yase 960 867968) HSG1 = BOIS 5028 
5 Size S$i30 Si3l Si 5205 
5a40 «5928 «SC s«S978~—Sts«SS9 6001 60°32 6006 
e480 6482 6483 6514 651 BSE 6564 
6978 6979 6992 6993 7000 7001 
7147 isi 7155 7163 7168 7170 7171 
7284 «97283« 72040729773 7301 7339 
q 7496 «75 7644 7645 3s 7896 
7961 796 7974 #97978 «097987 «= 7891_-~Ss 8450 
esss 8589 8599 8608 3 8 
go05 4:90 9007 «ie §=s «901s 1B Ss«é017 
go42 894 1 9057 9062 9063 9 
YPERR 040776 ‘aecee 1is7?" 
TYPFMT 003124 Saeos 476s 460 Seas «S2Sex 6899 6994" 6947 
TYPLST 015726 4914 49878 
| TYPMAX 034234 $833. 790 7916 79748 
TYPMIN 034210 Se27 «7898 «= ss79130—=Cts 79818 
TypoC = 104402 1588, 8554 8598 = 011 0218024 =H 
| TYPOS = 104403 6678 719% ###7201 7247 «©7252 8998 116578 
| TYPPAT O31252 S027 72438 7299 
TY 031172 4990 «071s 788 
we eee 86s 
‘s 003014 qoo88 ae7ee 69877" «901 += ae «9947 —s10026% 
'T.BA 003006 1seos loose lps77« 
T/CS1 003000 saige Sees 9873x9874 9887 * 9931% 
eet oe 
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10216% 10217 10227 10236 10275* 
T.DA 003010 33218 10096 1027e% 
TDB 3034 33308 
Tbs 903020 335c8 ‘Spcqx ‘Sees 10100 102798 
TER 903018 $3es8 | S833 ga99* 10002 10099 10238 
TIMR2 3024 33288 19 10055 10072 10114 10136 
Tonks 903086 sge8 9311, 9871 10050 10e8S* 10366 © 10373 
T:PAT 003 is 10287% 
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10027 
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4836 4848 
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$072 5073 
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UPE = B2boDo 3 a gaze 9830 39996 10236 * 
= U eee 
VFROSM= auGe8 
VV = 000100 30638 
7 une 4938 6299 6751 
= 4438 
WC = 040000 30298 9427 9830 9996 10236 
WCEFLG 003141 34338 6317 gSes*x 98530 8S4S* 98547 8561* 
WCERR = 40708 S28 9430 9502 
WC2EBIG Olli 4O4“4e 49 
XFR S72 35108 8111 8180 8236 8634 8677 870S* 
WHOSW = 000001 34418 
WE = 00 30488 $9309 9836 10002 
WORDSP 012502 44138 7244 
WRDATA= Rootes Se 6103 6186 6211 6311 8479 10559 
WRHEAD= O00 ls 
WRL = OO4000 7% 
WRTCHK= 131 e97e8 66132 6315 8024 8482 10555 
WRTGAT= O40000 30868 
WRTLOK 7707 41398 7001 
| WRTSEC S42 ores 
| Vv 114 4iee 9730% 984S* 9871* 93923* 9938% 9951* 
1 318 1gseoe 10S23% 10S26* 10547 10599% 10617 
MILI 003060 3658 7 10691 
HEN 3066 33818 19563 
M o 003058 aH : ae 972S* 
Fike 503185 33058 g78E 9732% 9844*% 9872% 9922% 9937 
ux = SEH imee ion te 10598% 10616* 
WTCH D4Si40 Sige 10236 a (is 
-8SEC 003064 33808 93923 #£«®10118 
XDPSAV OO0SSSO 3506% #6774% ###.6775% 6789% 6790*% # £6821 6822 
re OO34 pace eat . 4S41% 6760 6770 6793* 6814 
7 Ss 68308 6837 6868 
XDPS «BB 7374 Peon Be aoe 
XDP4 027354 6826 6832 
OVI AR 003134 sdegs 6261 6284 6813% 8431 
XXDPi OOSS46 u 6715 6719% 6720* 6721* 6762 6768 
XXDPCH 003117 34158 
XXDPMG 007240 40818  4S4S 
SAPTHD 001000 1 20048 
sASTAT= RHRHEE LU 11479 11494 
SATYC 0S 436 114SO0 =: 11 4S28 
SATY1 S4le 114468 
Te es re eae 
SAUTOB 001134 Bat 
SBASE 001374 214Se 4551 
SBDADR poi tee 20338 
$SBODA 118 20358 
S$BELL 00131 20968 11270 #11302 
a 053200 10856% 10866# 10873 10882* 10887# 
CK HRSERE U 11662 
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10791 
6599 

11431 

11274 


11488 


107939 
327 

11433% 

11282 


109938 


1149648 


10804# 


11302 


LOY 


12:16 a He 
- USER SYMBOLS 


2084s 2085s 
20908 20918 
5028 5840 
7924 8578 
1085S 10890 
11481 

10836 10841 
11417 11419 
1144O* 1144S 
12077 

11439 
1080948 
1077448 


20608 
20738 


50738 


2092s 


6483 
8585S 
11278 


11489 


1142S 


2061% 
20748 


Sa74 


20938 


6564 
85993 
11302 


1144S 


7168 
9300S 


SEQ 0536 
SE@ 0257 
20648 2065s 
20778 20788 
48 8 
50978 | 5098s 
7173 7413 
9007 9015 
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CZR6MD.P11 10-JAN-78 11:48 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0258 


0S6060 11532 § 6115578 
056050 11849 115548 
ois iss # 7338 6823 8132 8203 8292 8301 8690 8748 115308 11534" 11557# 
489% 4958 
Be39 tae? 108 7S74 8043 10790 10797 10803% 108108 


oor oun 
ese xkKke 
££ 
<= 
me 
= 
eon 
un 
=k 





11 11423* 114357" 11442 444 
B04t 4 belt b382e tbSdhe tt3d3 iisge 1iyes)t4gee 11444 
esus 11890 118778 
056164 6536 11571* 115788 
1352 21328 
r 1368 
1 1338 
i 2010 21058 4477 #+S34O 5364 S390 S438 5477 ©5525 SSB81 S617 Sé41 
5674 =Ss«dS724~Sfisi‘«*wzBSC(‘<«‘s~SCSISCiéi‘«éSGSC<‘ié«‘iLZG~=SCS4H) «10834 ~=s11280 =: 111436 
901350 Bibs 
801364 31348 
001360 31378 
SMAMS4 001364 21408 
SMBADR 001002 20068 
MFLG OS5654 11949% 114SS 11490" 114948 
ld Js 7 113438 
501 11g8 11ME5e 11468 
501 1138 11470" 
SMSGTY 001320 21068 11463  11471* 11483 11487% 
SMSWR 054776 113418 
SMTYP1 001351 21278 
MTvee 001355 31358 
T 1 31388 
TyPY 00136 Bi4is 
XCNT ai 11434 «114448 
snutéT= BooooL Coe eee eee §«6s35840 (S380 5382 «S448 «S416 «Ss SWe78 «S469.«= ss SS13H «SSIS SS6Se 
eers*® 223d, e277" 22358 eceae ceeve eco e7iew e718 sesse Sas? saade S436 
B0108 6012 60884 6090 6170" 6172 beeen 6224 
CNT petesg 131 % 1hece i O# 
ocTvL eu 4 10995 110208 
0 os42 11133" 11137" 11192 11145* 11156* 111828 
SOVER 05 11404 11424 11432 11441 
He BB ge 4477" “Sele 5304 304 6395" GMOS HIG BH22= 7069 
PURCT Osi 11356% 11357% 113668 
Se a 
SQUES 001314 30978 «4599. «= «4633.«Ss«44703.-'—i«i«wN790':—«=«w8386C«<‘<i‘| SS ©6CYHIsC(<tié‘iEBOC*“SOSGE~—CsC‘~SS:LOS:—~«Ss«S:131~—s S205 
651s 6592 7171 «972949 «+37340 10890 11302 
SRAND 20 7548 #7573 # 4BO42 107868 
HR 644 113188 11662 
SRODEC= #¥ex%% LU 1166 
N= 2HREERE 1166 
T= £42222 LJ 1166 
SRDSZ = 00 113398 
SREGAD 001160 DDSis 
SREGO 001162 20538 9138 12077 





NOY 
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Z 
g 
2 


Cc 
CZR6EMD 10-JAN-78 11:48 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0259 
G10 20e 20618 6155* 6661# 98235*  8236*% 8237 8275* 8278 9363% 9388% 9423% 12081 12089 
Gl 204 e06e8 6156% ascot 9364 9389% 3424" 12081 12089 
Gl 206 20638 6157% 8277% 9365* 9390% 9417* 9419 12081 12089 
Gl si8 48 * §8281% 8283% 8284 12081 12089 
G14 st 58 cee 8 80 828 1 12089 
G1S 14 ® * 286% 12084 # «12089 
S18 e216 20678 8214* 12085 12089 
G eed 20688 15085 
186 20sS# 12077 
eee 20698 12085 
ee4 20708 12085 
see 20718 12085 
surge 12085 
Sic 7 12085 
34 20748 12085 
36 20758 93009 9169 









+ 


Tag ee TT eT a eT aT ed el el ded ondandond 


REE EO TREE 
la AES 
For 

ENdS 
: 
= 
: 


annngnagnonnsnsnenesneeeees 


} 
| 
DO 20818 
00132 eoeit 
pe eS6 20838 9148% 2080 
Ca 50 o3 stere 914S% 12080 
SREGS 001174 goeR* G3 08% 665 x cea’ ge % 8257 8265S 8271% SS4g% g9S0* S14s 9513% 9S14x 
eek YO Ux 66 9671 12081 12088 
SREGE 001176 20s38 6107% 66S7% 7S27% Be5ex% 8258* 8267 82728 9623% 962b# 9637 9639* S641 
9661% 966e% 9663 SEEHX 9667 9669 9670 12081 12088 
SREG7 001200 20608 6108# 6140# 6658 BeS9* 82693 8273 SbL4Hx% 962S* 9627 9630%* 9634 9636* 
668% 9670 967e*x 12081 12088 
SRESRE Sb2ee4 lleblese 11664 
SRTNAD O2eSS4E 64158 
SREA = RHHHEHE U 11665 
SSAVRE 6166 115968 11663 
SSCOPE 055154 guy 114008 
SSETUP= 7 3383" iia? 1 iaus 1suat 44S1 yyo3 4yos 4YuoE 4457 44S9 6392 11265 11290 
SSIZE oSS660 6529 115188 
S$SIZEX OS6l2e 1SS6 115668 
ft  Ngaeas cena” 7227 741le 7472 7439 73964 79377 7390 110938 
SSViRO 055040 aig 1855s 
S$SWR = 167000 17608 1780 1784 1785S 1786 1787 1788 1789 1790 1791 2094 2035 2096 
BUS 44S7 Hugg 4460 S340 S364 5390 S438 S477 SS2es SS8l S617 S641 
S674 S724 Sses S947 6019 6096 61793 6254 6383 63933 6408 6414 6416 
11256 11257 11258 11259 11260 11268 11275 11287 11290 11302 11393 11395 
113 11397 11403 11415 11417 11418 11419 11426 11427 11428 11438 11441 L1444 
SWREG 001342 ell i 4480 
SSWRMK= 000000 11397 
STESTN 001324 21088 S340" S364" S5390* S438% S477% SS2S* SS6l* S617 S641% S674 S724% Sees 
S947 6019% 6096* 6179% 62e54* 11436% 
STIMES 001304 2034s 44SEx S230* 6393% 7071 7076 8436* 11401 11426* 11431 LL434# L144 
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| 
! 
COREMD.P11l 10-JAN-78 11:48 CROSS NCE TABLE -- USER SYMBOLS SEQ 0260 — 
1146 e 455 guage 11305 ligee, 11328 
be : “gees lex 032% 6391% 6467% ##6S500% s858* 11305 11320 «§=611326 | 
1369 8 8771% 2% 8780 
1 8 87a4e * 8786 
| toa eg 
1576 le sbgee S693% 5701¥ 5703 
1300 eoses Segue 57008 
p00022 Izese 1760 se. S348 3 S956, Speye 5967 6380, S998 30g guy Suggs 
agi 46 4778 «©8480 1 B3cy 262g 8665 5818 $584 03 «26178 «8620 
e see Seu4 | 5657 BGrHe 5877 271, e748 6727 §7 85s S8658 5869 
58 eq34 «89478 24g «97g «= 974)=Ss«O10Ss—«i Se «Cee SB 
pees «=egee «OS CiSew «46099 «bi70S ss i7de = biee §= 221 «= Beee 2S eS4e BS? 
3652 1041 11042 110gee 
Lise 8 10679" 103 
il osos 1 10890 
901150 Sous 10877 10890 
S451. 116328 
056304 Hipage 11654 
Sue Lieve 1ies68 116578 116588 116598 116608 11662 116638 116648 11665 116668 
T oe 
1982 ‘ sggge Sa1ve e392" GN2He 7073 guuex 9997 11267 11302 11392 1143S* 11436 
RHEERE LU Liege 
4 11198 11659 
2 1oa288 114 11647 11655 
134 ipsse 10866 10872 108778 10878 
10883 10888 108808 . 
111368 116 
iii iiia6e 11658 
i Settee 
|S 
1344 1188 
1370 51438 4550 
1372 51448 
Si75 1]4g2 114068 
eeeeee U ae «9747—=« 998210173 01eH 10222 10538 10577 10589 «10643 «10665 + 10683 10710 
os4221 1113ge 111968 11146 111818 
eeeeee U 11277 11403 
064460 19gie 19658 19708 19788 1a74e 1968 19838 19858 19878 19888 1999 19958 19978 
tae ee ee oY aaoas «6 47se «34848 «35058 «35098 «35158 4444 sg HBG 12S 
2378 Ocoee Oe CYie” «= sB4e0«-10890 10862 ««11020e 110828 112498 11302 11305 11346 
17383-15708 411444 1144S 114978 120768 
HRRREE U 114493 114Se 
001000 iggue 1999 
0226 19778 
oo0se4 19768 





: eS Be eee 
SBRERBO ANS! SR AMFBTE tae "PY SRR5L05R2, cABREO AB. 12: nc RE RARE! SEE oes 


BYEOPS 63788 6387 
BYSCOP 113878 11401 
CKEXIT 26678 ©5781 = S889 S909 BONY = B02 gese 
19188 
| E 1 igs S759 6149 158 6666 g961 = 6982 7528 777s. gesg gag ares ge74 8287 8536 
pea gog3 gous 8eR «SG g3e8 ae g338 = gabe 3385 B56, gse8SOCéSSSs«S3E 
$307 $311 $315 S320 $3e5 3330 9335 9549 NS 995 9368 9370 49380 
9393, 9395 $408 SHeS SHH SHE q443 448i (GH. 9481 951 
EETPRI teiBe 11526 
Gers 13188 3 4 53808 8 4148 SY 4678 5469 Size SSIS SS65e S567 S609" 
Beli Bbage BP eres, e269" e972, e7ig* eee, eager doa, ese" EBide bois Ebeae cpea 
. Gi7de bi7e beede bees 
NeWtstT feiss 5332 535 5380 S414 S467 #4«®©5SI3. SS6S 5609 S630 S657 15716 ###sS8sS 5934 6010 
Se a es a a ee 
NxTee 38 ? 58 644] §4804«=s«dBS2e)Stsié‘iSB4H)SsCéSGPO)0OCtC«SBHN—«Sés«“SG7?7~—é«‘“SS72@7~=—Ss«SBEBEs«CSSD—Ss«GO22 
parnax 77, $386 S537 
\POoE 4 188 © 611236 «11491 «1149211617 
PUSH gigs fosee §=tifse «thes tes = tH84S «tise 
ve 
REPORT 19188 
R. DRI 18 9676 
sé 18148 5339 #45363 5389 S437 «SH7B SS24 S580 Sbl6 SBYO S673 5723 See4Y S9%H 6018 
6095 6178 6253 6387 
SETTRA 1tedee 11656 11657 11658 11659 11662 11663 11664 11665 
SETUP 19188 4439 
SKIP 19188 
SLASH 19188 
rags «=«di?eT”=s7e7sgige «1980 «1991 «1993 2000s nib 2103 4609 4617 4764 4778 ~#& 5332 
5338 5356 5362 5380 5388 S414 5436 467 S475 5513 S523  5SS56S 5579 9 5615 
Se ee fe fins 
61 1 2 451 46 4 1 i 
6576 6606 6612 662 66 B54 6671 678 70971 Bre8 87 62 B 
7 B80 6898 6903 891868 036 o4 7053 084 1 1 20 16 
723 eu 7889771 B73 met Hey uu} Pug 747 7483 > 7514 7538 
533505708 oBa 6 perc «= 5ets B92 5848 f bean a0 
7939 420-7957 90 7970 797 7983 7986 g000 2801 8016 8035 ## 8038 #8052 806i 
goss ida Bibs gi7e 31D gel Ne B42 Bue BYE e483 849} 8510 85138566 
ee a SS 
10272 10291 10317 10336 10358 10416 10443 10721 10734 go>) HBAPS «48429 «= tBSBS = «1BSAT = «tBS32 
10984 11023 11085 11108 11185 11252 11304 11310 11374 11377 11389 11447 11504 11581 11626 


CZR6EMD0_ RK611/06 SS VERIF 1 MACY11 30A(10S2) 10-JAN-78 12:16 PAGE 265 SEQ OS41 
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SWRSU 17608 19188 ‘444618 


8 
7ei™ 2eeds B170 p38 5380 5414 S467 5513 SS65 5609 5630 56S7 5716 S58ss 5934 6010 
| 
| TRMTRP 1igsze 
| TYPBIN 19188 
T C 19188 6403 
TYPNAM lise 
TYPNUMN 19168 
WOOKe 191388 
TYPOC 12138 
TYPTXT 15188 
eH iy 
148 3 2054 20ss 2056 2087 2058 2059 2060 2061 2062 2063 2064 2065 2066 
2067 sues Bik 2070 2071 2072 2073 2074 2075S 2076 2077 2078 2079 2080 2081 
secnrn ith 2065S 2086 2087 2088 20893 2030 2091 2092 2093 
$3hen 18188 Pi36 pass 5380 S414 S467 5513 SS6S 56093 5630 56S7 5716 58s5 $934 6010 
sseeT 116478 11656 11657 11658 11659 11662 11663 11664 # 11665 
SSSETN 44778 
SSSKIP 19188 
-EQUAT 17608 # 1808 
. 17608 1770 
-KT11 17608 1918 
-SETUP 17608 4419 
-SHRHI 17608 # 1780 
a? 17608 17928 # 1793 1794 1795 1796 1797 1798 1799 
° 4 a7 # 1978 
- SAPT! « 
-SAPTH 17608 1989 
° Ty -h ® 1144S 
-SCATC 17608 1959 
- SCNTA 17ene rout 
BSS et Hees 
. 17608 6378 
-SERRO 17608 11250 
-SPOWE 17608 
-SRAND 17608 10775 
- SRE 17608 11302 
-$ 17608 11579 
- $SC 17608 11387 
-$SI 17608 11502 
-$S 17608 11083 
-STRAP 17608 11624 
-STYPD 17608 11183 
-STYPE 17608 10811 
-STYPO 17608 11106 
- ABS. 064460 000 
| 
| 
| 
| 
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ERRORS DETECTED: 0 
OSK2: conere Oe CZROMD.SEQ/SOL “CRF “NL: TOC EQ: QNEWSW/DOC=DSKM: CRIV1O.P11,D0SKM:CZR&MD.P11 


FUN TIRE Posecow> 
RUN-T “RA 19: Esavege? .3 
(97 PAGES) 


DOCUMENT PAGES: 263 


SEQ OS4e 
SEQ 0263 


en nnn 
: 
' 


-_ SS ees 


